Hi-Res Graphics and Animation 
Using Assembly Language 


The Guide for Apple i! Programmers 


Ps 


4 


0. 


oO g 


——— 


% 
(i 

Y 
\ 


u 


Anple'iic 
lended- 


= 


i, 


| 
a5 


ha) 


= 


[HAYDEN 


Leonard | Malkin, Ph.D. 


Hi-Res Graphics and Animation 
lking Assembly Language 


The Guide for Apple I°Programmers 


Hi-Res Graphics and Mnimation 
Using Assembly Language 


The Guide for Apple 1° Programmers 


leonard |. Malkin, Ph.D. 


Hayden Book Company 


A DIVISION OF HAYDEN PUBLISHING COMPANY, INC. 
HASBROUCK HEIGHTS, NEW JERSEY / BERKELEY, CALIFORNIA 


Acquisitions Editor: KAREN PASTUZYN 

Production Editor: ALBERTA BODDY 

Design: JIM BERNARD 

Cover photo: LOU ODOR 

Compositor: MCFARLAND GRAPHICS AND DESIGN, INC. 
Printer: J.D. LUCAS PRINTING COMPANY 


I would like to thank my editor, Karen Pastuzyn, who helped me turn a rough idea into a 
finished manuscript, and also the reviewers, who lent their assembly language expertise to 


many parts of the programs. 


Library of Congress Cataloging-in-Publication Data 


Malkin, Leonard I. 
Hi-res graphics and animation using assembly language. 


Includes index. 
1. Apple II (Computer )— Programming. 2. Computer 
graphics. 3. Assembler language (Computer program 


language) I. Title. 
QA76.8.A662M35 1985 006.6 85-24752 


ISBN 0-8104-6758-5 


Copyright © 1986 by HAYDEN BOOK COMPANY. All rights reserved. No part of 
this book may be reprinted, or reproduced, or utilized in any form or by any 
electronic, mechanical, or other means, now known or hereafter invented, 
including photocopying and recording, or in any information storage and 
retrieval system, without permission in writing from the Publisher. 


Printed in the United States of America 


1 2 3 4&4 5 © 7 “8 9) PRINTING 
86 87 88 89 90 91 92 93 94 YEAR 


To Diane, Sonya, and Joshua, 
with whom I can now get reacquainted, 
and to my parents, who made me. 


EQUIPMENT NEEDED 
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To use the programs in this book, you will need the following equipment: 


e An Apple II Plus, Ie, or IIc (Chapter 12 requires either a IIc or an 
extended-memory Ile) 


e A disk drive 

e A monitor (color for Chapter 11 and part of Chapter 12) 
e A joystick or paddle 

e An assembler (see the What You Will Need section) 


What You Will Need 


If you have an Apple II (II+, Ie, or IIc), and someplace to plug it in, you’re 
practically all set. You will need a disc drive and a display screen, which can be 
either a black and white or color monitor or television set. Monitors give sharper 
pictures and are recommended, especially for double hi-res, but television sets 
are adequate. You should also have a joystick or paddle controls. 

You will also need a good assembler. Assemblers are software packages that 
allow you to write and, more importantly, edit assembly language programs. 
Strictly speaking, you don’t need an assembler to enter the programs in this book 
(you could use the Apple’s resident Monitor or even BASIC), but the level of 
inconvenience would be unbearably high. Also, for you assembly language 
beginners out there, don’t be lulled by those who may tell you that the Apple’s 
Mini-Assembler or some other simple assembler is sufficient for your needs. The 
most important characteristic of full feature assemblers is their convenience, not 
their complexity. To eliminate long hours of needless work, and certainly if 
you’re going to do any serious assembly language programming, a full feature 
assembler is a necessity. All programs in this book were assembled using the BIG 
MAC assembler (available from A.P.P.L.E., 290 S.W. 43rd St., Renton, WA 98055; 
call 1-800-426-3667 to order), but any full feature assembler can be used as they 
all employ the same basic command set. Among others I can recommend are 
Orca/M (Hayden Software ), Merlin (Southwestern Data Systems), and DOS Tool 
Kit (Apple Computer, Inc.). These are available in computer stores and are also 
discounted by mail order firms—check the software ads in any computer maga- 
zine. If you don’t want to invest in an assembler just now, contact your local 
Apple user’s group—you may be able to borrow an assembler for temporary use. 

There are usually some minor differences from assembler to assembler but 
these are almost always in extra features rather than in the basic system. Features 
of the BIG MAC assembler used in this book that may not be found in other 
assemblers are pointed out in the text along with the normal or standard instruc- 
tions. If you’re not going to use BIG MAC, examine your assembler’s instruction 
manual. This, together with an examination of the generated machine code, will 
tell you what changes, if any, have to be made in the way the assembly code is 
written. 


hhtroduction 


F, One of this book will lead you, step-by-step, through the construc- 
tion of a single, arcade-type hi-res game written entirely in Apple II assembly 
language. Each chapter in Part One provides a building block leading to the final 
game with minimal digressions. Later chapters (Part Two) discuss aspects of 
hi-res animated graphics important to the subject but not directly related to the 
game, with suggestions about how to apply these techniques to the game itself 
or to your own programs. 

The game we’re going to construct is relatively simple but the program code 
is not. Hopefully, reading this book will reduce the level of difficulty to 
manageable proportions. It is written for beginners and experienced users alike 
and no prior knowledge of assembly language is required. It begins with a 
discussion of bits and bytes, binary and hexadecimal numbering systems, 
architecture of the Apple II hi-res screens, use of an assembler, and proceeds 
with a discussion of drawing and animating shapes, paddle and joystick controls, 
collision detection, scoring and sound, and finally the game itself. Other topics 
discussed in both Parts One and Two include animating multiple shapes, 
drawing over backgrounds, animation in color and in double hi-res cclor and 
black and white, advanced paddle and joystick routines, and integrating BASIC 
with assembly language programs. 

Studying this book slowly and methodically will provide you with knowledge 
of the elements of hi-res game design for the Apple and you will be able to 
program your own hi-res animation routines in assembly language. However, it 
should be emphasized that the skills you will acquire have utility far beyond 
merely designing games. Let me give you a concrete example. I’ve recently 
completed an educational program for the Apple II that required moving rather 
large shapes around the screen and attempts to do this from BASIC using Apple 
shape tables (we'll discuss these in Chapter 1) were far from satisfactory. The 
jerky, flickering animation seemed designed to ensure nervous blinking. Using 


the simple principles described in this book, I was able to produce smooth, 
professional-looking animation that contributes greatly to the visual appeal of the 
program, which is one of its strong selling points. So even if game design is not 
your goal, hi-res animation using assembly language will provide you with an 
extremely useful tool for a myriad of applications, limited only by your 
imagination. 

Finally, I strongly encourage you to play an active role in the learning 
process. Do not merely read the text; type in the programs. Try the advanced 
techniques described in Part Two to modify the game and, above all, develop 
your own programs. In this way you will learn not only the techniques of hi-res 
graphics and animation but also many fundamental principles of assembly 
language programming. Reading about assembly language instructions is one 
thing but using them in your own programs is another. In the words of an 
ancient Chinese philosopher, 


I hear, and I forget, 
I see, and I remember, 
I do, and I understand. 
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PART ONE 


Fundamentals and 
the Game 


Why Assembly Language 
for HiRes Animated Graphics? 


An English teacher named Bea 
Knew the dictionary from A to Z, 
But upon buying an Apple 

She then had to grapple 

With a brand new vocabulary. 


} ae in assembly language is not the only way to produce hi-res 
animated graphics on the Apple II. Applesoft BASIC supports many graphics fea- 
tures that can be quite useful for displaying shapes or moving one or two rela- 
tively small shapes around the screen. In fact, it is often convenient to combine 
graphics from BASIC with assembly language graphic routines, and we will dis- 
cuss how to do this in Chapter 16. But, as we'll soon see, there are problems 
associated with using BASIC for graphics programming. 

Simple BASIC commands allow one to plot points or lines (and thus shapes ) 
on the hi-res screen and to move them around by erasing and redrawing at a new 
position. For example, the following BASIC program plots a horizontal line and 
moves it down one line: 


10 HGR: REM CLEARS AND DISPLAYS HI-RES SCREEN 

20 HCOLOR=3: REM COLOR SET TO WHITE 

30 HPLOT 20,20 TO 100,20: REM DRAWS HORIZONTAL LINE 

40 HCOLOR=0: HPLOT 20,20 TO 100,20: REM ERASES LINE BY REDRAWING IN BLACK 
50 HCOLOR=3: HPLOT 20,21 TO 100,21: REM REDRAWS LINE IN NEW POSITION 


The line can be made to traverse the screen by continuing the program and 
changing plot coordinates. One can also draw vertical or diagonal lines and move 
them across the screen. By specifying different values for HCOLOR, the lines can 
be drawn in any of the four hi-res colors (blue, orange, violet, and green). This 
routine is fine for drawing and moving lines, but is far too cumbersome for 
complicated shapes and entirely inappropriate for rapid and smooth animation— 
BASIC is just too slow. Consider that even a simple shape may consist of 5 or 10 
lines, and moving a shape across the entire hi-res screen involves over 200 draw- 
erase cycles. Now imagine a routine to move several such shapes at the same 
time. Attempting to do this in BASIC, in the way described above, would result in 
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an enormous, and enormously difficult to write, program. In addition, the anima- 
tion would be extremely slow and jerky. 

There is yet another method for programming hi-res graphics from BASIC 
and this involves using Apple shape tables. Details are contained in the Apple 
BASIC manual so I will touch on the subject only briefly. The instructions for 
drawing a shape (not the shape itself) are stored somewhere in memory in what 
are called, appropriately enough, shape tables. A single shape table can contain 
instructions for more than one shape. For example, to draw the first shape of a 
shape table, the location of the table is specified by POKEing the appropriate 
numbers into certain memory locations. Then the color is chosen by assigning a 
number to HCOLOR, and values for rotation (ROT) and scale (SCALE) are speci- 
fied. The instruction DRAW 1 AT X,Y will draw the first shape of the table at the 
coordinates specified by X and Y. By changing the HCOLOR value, the shape can 
be drawn in different colors. Changing the values for ROT and SCALE allows one 
to rotate the shape and scale it up in size (although this latter feature is of 
limited usefulness because the scaling is not proportional). The shape can be 
erased by the instruction XDRAW 1 AT X,Y or by changing the color to black 
(HCOLOR = 0) and reDRAWing at X,Y. By erasing and redrawing at different 
nearby coordinates, the shape can be made to appear to move. 

Using shape tables is a neat and convenient way to program hi-res graphics, 
but there are three problems associated with their use. First, although any of the 
hi-res colors can be selected, the shape can be only one color— multiple colors 
in a single shape is not possible. Second, constructing a shape table in the way 
described in the Apple BASIC manual is a horrendous task. The manual itself 
recommends using one of the many commercially available utility programs for 
this purpose—an example is the Apple Mechanic program from Beagle Bros. 
Such utilities work well (you draw the shape, point by point, and the program 
assembles it automatically into a shape table) but, as is often the case with 
someone else’s program, you may not be able to get it to do what you want it to 
do. The Apple Mechanic, for example, limits the overall size of the shape and this 
may not be appropriate for your needs. Third, smooth and rapid animation with 
large shapes or with many shapes moving at the same time is not possible using 
shape tables. The draw, erase, redraw cycles are just too slow, and excessive 
flickering and jerky movement are the results. Again, as with HPLOTting, shape 
tables do not have their place (I use them in my own commercial programs), 
but they do not provide the versatility afforded by assembly language program- 
ming. 

There are a few graphics utility programs on the market that purport to 
greatly simplify hi-res animation and they do. But they also, in my hands at least, 
suffer from many of the problems associated with shape tables and graphics from 
BASIC and thus, in my opinion, have limited usefulness. Again, using someone 
else’s program almost assuredly will place limits on what you can do. For exam- 
ple, the programs I am familiar with limit the size of the shapes and the number 
of shapes you can display at any one time. Most have no provision for sound. 
They are also too slow—the more and larger the shapes, the slower and jerkier 
the animation. Some of these programs may satisfy your particular needs but 
don’t buy one without return privileges. 

The essence of good animation is speed. The illusion of continuous move- 
ment can be accomplished only by very rapid draw and erase cycles, especially 
for large shapes. This also applies in the case of the game we’re going to con- 
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struct, where one desires the illusion of simultaneous movement of multiple 
shapes. Assembly language provides this speed — in fact, as we'll soon see, assem- 
bly language speed is so great that time delays have to be placed in the game 
program to slow down the action to a reasonable pace. 

In addition to speed, assembly language provides the ultimate in versatility. 
You want to draw and move a shape that takes up half the screen? OK, no prob- 
lem. How about moving five shapes in different directions at the same time, with 
sound effects and all possible colors? Also no problem (actually, it is a problem 
but solvable with assembly language ). 

Finally, if you’re like I am, you want to know and control what's going on. 
How is your computer drawing and moving all those shapes? Using someone 
else’s program or using BASIC or shape tables tells you very little. Writing your 
own assembly language programs tells you a great deal. 

Speed, versatility, understanding—only assembly language provides this 
combination of virtues. 


Bits and Bytes 
Sugar and Spice 


There once was a fellow named Tex 
Whose computer kept him from sex. 
When offered a slumber 

By a cute little number 

He said, ‘1 really prefer binary and hex.” 


Awe minimal knowledge of binary and hexadecimal numbering sys- 
tems, the Apple memory map, details of the hi-res screens, and the use of an 
assembler is necessary before going on to a discussion of assembly language 
hi-res drawing and animation. Those who know this material can skip to Chap- 
ter 3. Those who don’t will need to slog their way through this chapter. I'll try to 
make the slogging as painless as possible. 


BINARY NUMBER SYSTEM 
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Computers operate essentially by using thousands of 2-position switches. 
Everything a computer does, taking in data (or text, which to a computer is just 
another form of data), manipulating it, and sending it out to a screen or printer 
or other device, is all controlled by these switches. A switch can either be on or 
off (more precisely, high voltage or low voltage). If we assign a 1 and a 0 to 
these alternate states, we then have a way of representing the status of these 
switches with numbers. To “talk” to a computer, to tell it what to do, we have to 
set its switches by talking its language. The only language a computer under- 
stands is the language of 0’s and 1’s, which comprises what is called a binary 
number system. Higher level computer languages, such as BASIC, use interpre- 
tive programs to convert text and decimal number instructions into a binary 
form. To use lower level languages, such as assembly language, and to under- 
stand hi-res graphics, some understanding of the binary system is required. 
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In any language, all possible words are represented by arranging the alphabet 
characters in different combinations. Computer “words” are numbers and the 
computer “alphabet” is 0 and 1. How can just two digits be used to represent 
more than two numbers? The universally used numbering system is, of course, 
the decimal system which uses ten digits, 0 to 9, to represent all possible 
numbers (this is undoubtedly related to the fact that we have ten fingers and 
toes; if we had only two, we would probably be balancing our checkbooks in 
binary). We have to realize that the decimal system is just as arbitrary as any 
other system using any other number of digits. Thus, to understand the binary 
system requires only an understanding of the principles of the decimal system. 

The decimal system works by column assignments. There is no single digit to 
represent the number ten, so a 1 is placed in a second column, the tens column. 
Similarly, we represent one hundred by placing a 1 in the third or hundreds 
column. Each column represents some whole factor of 10. 


1000's 100’s 10's 1's 
108 10? 10! 10° 


4 3 2 7 += 4000 + 300 + 20 + 7 = 4327 


In the binary system, we can count to one easily enough (zero, one) but there is 
no single digit to represent the number two so we place a 1 in a second column. 
Thus, binary 10 = decimal 2 and, it follows, binary 11 = decimal 3. What is 
decimal 4? Very good. It’s binary 100. Thus, the binary system uses columns just 
like the decimal system except the columns are now factors of two. 


Ss. AS 25.1 

Bs 2!) gh 2? Decimal 
0 0 0 0 0 
0 0 0 1 1 
0 0 1 0 2 
0 0 1 1 3 
0 1 0 0 4 
0 1 0 1 5 
0 1 1 0 6 
0 1 1 1 7 
1 0 0 0 8 
1 0 0 1 9 
1 0 1 0 10 
1 0 1 1 11 
i. 1 0 0 12 
1 1 0 1 13 
1 1 1 0 14 
1 1 1 1 15 


Columns can be extended to a 16’s column, 32’s column, etc. and so given 
enough columns, we can represent any number by stringing together Os and 1s. 


Bits and Bytes, Sugar and Spice 


Hi-Res Graphics and Animation Using Assembly Language 9 coe veer cccecscecece cence senecceecc cee ecccccsnsccesecsccesecececcccesecccceves 


THE HEXADECIMAL NUMBERING SYSTEM 
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Writing numbers in binary is obviously a laborious task and is also prone to 
errors—try copying a string of a hundred 0’s and 1’s and see how far you get 
without making a mistake. To avoid these problems, assembly language uses yet 
another numbering system, the hexadecimal system. An interpreter program 
converts hexadecimal (or hex for short) numbers into the binary format so the 
computer can understand what’s going on. It will be easier to understand the 
hexadecimal system if we first discuss some aspects of how the Apple handles 
numbers. 

Each position of a binary number is called a bit. A group of 4 bits is called a 
nibble and a group of 8 bits is called a byte. 


——.-__v~0—-—-—'‘T[™-''." 


BitNumber—e> 7 6 5 4 3 2 1 0 
Value ————» 128 64 32 16 8 4 2 1 


EES Sa a a 


Nibble 


The Apple II is an 8-bit machine; that is, its microprocessor handles 8 bits 
(1 byte) of data at a time. It’s convenient to represent a nibble by a single hex 
number; thus two hex numbers can represent a single byte. If we look at the 
table below, we see that a nibble can have values from 0 to 15. We have only ten 
digits (0-9) to work with, so numbers 10 to 15 are assigned letters A to F (hex 
numbers are preceded by a $ sign to distinguish them from decimal numbers ). 


Decimal Binary Hex 
0 0000 $0 
1 0001 $1 
2 0010 $2 
3 00-1" 1 $3 
4 0100 $4 
5 0101 $5 
6 OT ARO $6 
7 OMe ir art $7 
8 1000 $8 
9 1001 $9 
10 WOO $A 
11 Ort $B 
12 1100 $C 
13 0.1 $D 
14 y fis Hi La 8 $E 
15 ales Ca $F 
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Now we've simplified things somewhat. It’s obviously easier to write $F than 
1G ia 

Most of the time we'll be writing numbers as bytes and here the advantage of 
hex numbers becomes more apparent. To write a byte in hex, we simply assign a 
hex number to each nibble, e.g., 


Decimal Binary Hex 
98 0) hat GO: 0"'0 1.0 $62 
—[S OO 
$6 $2 
198 He OOO 8 $C6 

Sa 
$C $6 
255 ja as ag a a | $FF 
—LS——r oT” 
$F $F 


1 0: 10) 00'0)0'.0)-0' 1 $01 
SY eeerHY_Ee 


$0 $1 


If you ever feel an irresistible urge to convert hex numbers into binary, you 
simply take each hex digit and write the corresponding binary nibble. Convert- 
ing hex to decimal and vice versa is often useful (BASIC uses only decimal 
numbers). This can be done easily if you understand that the hex system also 
uses column assignments, just as binary and decimal, but here the columns are 
factors of 16 (hence the name hexa[6]decimal[10]) because there are 16 digits 
possible in each column. 


16's 1's 

16! 16° Hex Decimal 

$1 $0 $10 16 

$2 $0 $20 32 

$2 $A $2A 42 

$6 $2 $62 98 
THE APPLE IIT MEMORY MAP 


The Apple 6502 microprocessor stores numbers in specific locations called 
memory addresses. Each memory address can hold only one byte. The maximum 
value of a byte is $FF (11111111 or 255 decimal )—this explains why 255 is the 
maximum value you can use to POKE to a memory location in BASIC. When 
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these addresses are scanned, a byte is retrieved from each location and depend- 
ing on the value, a given operation is performed. Memory addresses are accessed 
by a system that can handle two bytes of data at a time. Two bytes can be repre- 
sented by four hex numbers, and so a memory address has the general form 
$NNNN where N equals any hex number. Assemblers always access addresses 
using the hex format. We can convert memory addresses from hex to decimal 
(useful when using BASIC and assembly language in the same program) by 
column assignments; e.g.: 


4096's 2506's 16's I's 


163 16? 16! 16° Hex Decimal 
$0 $0 $A $0  $00A0 160 
$0 $8 $0 $0 $0800 2048 
$2 $0 $0 $0 $2000 8192 
$4 $0 $0 $0 $4000 16384 
$6 $0 $0 $0 $6000 24576 
$9 $6 $0 $0 $9600 38400 
$F $F $F $F s $FFFF 65535 


The highest memory address is $FFFF; i.e., all 16 bits are 1. Thus the 6502 
microprocessor can access only 65536 addresses ($0000 is the first memory 
location)—from this comes the term 64K of memory. Apples with 128K of 
memory switch between two memory banks, each one containing 65536 
addresses; Apples with less than 64K of memory have the capability of accessing 
65536 addresses — it’s just that they’re not all there. 

Memory addresses are conveniently divided into what are called pages, each 
page containing 256 bytes. 


Address Bytes Hex Address Page Number 
0-255 $0000-$00FF 0 
256-511 $0100-$01 FF 1 
512-767 $0200-$02FF 2 
etc. 


Thus, addresses in the range $0000 to $OOFF are called zero page addresses. 
We'll meet up with these later on as they play an important role in some of the 
assembly language instructions used in our programs. 

Memory addresses themselves are often stored at other memory addresses 
for use in a program. Because an address can store only one byte but is itself 
represented by two bytes (except for zero page addresses), we have a problem. 
The solution is to store an address in two locations, one byte in one and one 
byte in the other. This is done in a particular way. Memory address bytes are 
divided into two classes, the high order byte (left) and the low order byte 
(right). For example, $20 is the high byte and $00 the low byte of address $2000. 
The bytes are stored in consecutive locations, low byte first. We’ll learn more 
about this when we get to our programs in later chapters. 

There are several general areas of memory that play a distinctive role in the 
operation of the Apple II. The following memory map describes and locates 
some of these functions. 


POR meee eee ee Eee R ETE E EEE EEE EE EEE EEE HEHEHE HEHEHE EEE E EHH EE EEE EseEEseeeS 
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$FFFF (65535) 


Operating System 


THE HI-RES SCREENS 


FORO Ree eee eee E EE EEE EEE E EEE HE EEEEEET EEE EEEeES 


$BFFF (49151) 


$9600 (38400) 


$6000 (24576) 


$4000 (16784) 


$2000 (8192) 
$0800 (2048) 


$0000 (0) 


There are two areas reserved for hi-res graphics, Pages 1 and 2 (these page 
numbers have nothing to do with the page numbers of memory addresses dis- 
cussed above). Page 1 occupies an area from $2000 to $3FFF and Page 2 from 
$4000 to $5FFF. Either page can be used for any hi-res graphics program, the 
only difference being that Page 1 has the option of displaying full-page graphics 
or mixed text and graphics, the bottom four lines displaying the text. So if you 
want to display text and graphics, choose Page 1. For full page graphics, you can 
choose either page. The only other point to consider in choosing pages is 
whether you're going to use a BASIC program along with your assembly language 
program. BASIC requires a continuous stretch of memory, so the page choice 
determines the maximum length of your BASIC program. For example, if you 
choose Page 1, you can run BASIC from $0800 to $1FFF or load the BASIC pro- 
gram above Page 1 and run it from $4000 to $9600. This will be discussed in 
more detail in Chapter 16. 

The hi-res screens are divided into screen bytes (horizontal) and lines (ver- 
tical). There are 192 lines, numbered 0 to 191, top to bottom, and each line 
contains 40 screen byts, numbered 0 to 39 ( #800 to #$27) left to right. Thus 
there are 40 X 192 = 7680 screen byte positions. 

In hi-res drawing, only 7 of the 8 bits in a byte are plotted (more on this 
later) and so each screen byte contains 7 bits, or, as they’re called when plotted, 
pixels (let’s get away from computerese and call them dots). Each line then can 
contain 7 X 40 = 280 dots. Therefore a hi-res screen can display up to 280 X 
192 = 53760 dots; that’s why they call it hi-res. So far so good. Everything seems 
to be in logical order but, of course, there are complications; otherwise, why 
would you need to read this book? For reasons we won't go into, the Apple 
designers decided to number hi-res lines in a nonconsecutive fashion. For exam- 
ple, line 0 of the Page 1 screen starts at address $2000 and ends at $2027. You 
might then expect line 1 to start at $2028, right? Wrong. Line 1 starts at $2400. 
Line 2 starts at $2800, line 3 at $2CO0, and so on, producing quite a scrambled 
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Screen Byte 
Address 0 1 2 3 4 5 6 7 8 9 1011 1213 14 15 16 17 18 . a 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Lines 
$2000 7 0-7 

$2080 |\ a Sa 8-15 

$2100 | NE 16-23 

szis0} | \ 24-31 
32-39 

40-47 

48-55 

Line net) 56-63 

=can a — 64-71 

Cee $0400 72-79 

Pd $0800 80-87 

$0C00 88-95 
| | J | | s1000 96-103 
[ | JT] ] s1400 104-111 
| | | | |] $1800 112-119 
| [ [ [ ] s1coo 120-127 
$2050 | | 128-135 
$20p0| | T | ase 136-143 
$2150 | | 144-151 
$21D0 . | | ae 152-159 
$2250 | | 160-167 
$22D0 H | . 7 Bae | tH | Eau | 168-175 
$2350 i 176-183 
$2300 [ ae wen CLE [LJ 184-191 


picture. The same situation holds true for the Page 2 hi-res screen although, of 
course, with different addresses. There is a method to this mad scramble but we 
need not concern ourselves with the details because the next chapter will de- 
scribe a way of accessing any screen position without having to refer to the 
hi-res screen memory map. The map itself is useful, however, so that you will 
understand how this is done. In addition, situations may arise where you will 
want to access particular screen positions directly by referring to the map. 


USING AN ASSEMBLER 


Finally, we get to the subject of an assembler. As mentioned in the What You 
Will Need section at the beginning of the book, you don’t have to use an 
assembler for your assembly language programs but if you don’t, I'll reserve a 
room for you at the home. 

The object of writing an assembly language program is, fittingly enough, to 
produce object or machine code. Object code is a machine language program 
that consists entirely of bytes stored at memory addresses. Some of these bytes 
represent numbers and others represent instructions to the operating system. 
Object code can look something like this: 


6000: AS 10 
6002: 8D 40 60 


The code is interpreted as follows. When the program gets to address $6000, 
byte $A9, an opcode (operation code), tells the computer to store the following 
number ($10) in the Accumulator, or A, an area for number storage and manipu- 
lation in the microprocessor. The first byte ($8D) in the next program line is an 
opcode that instructs the computer to put the number in the Accumulator at 
memory address $6040 (note that memory addresses are stored low byte first). 
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You could enter this code directly from BASIC by POKEing appropriate numbers 
into appropriate memory locations, remembering first to convert all numbers to 
decimal. The BASIC program would look like this: 


POKE 24576, 169 
POKE 24577, 16 
POKE 24578, 141 
POKE 24579, 64 
POKE 24580, 96 


The program could also be entered directly from the Apple’s Monitor in this 
fashion: 


6000:A9 
6001:10 
6002:8D 
6003:40 
6004:60 


Here is an assembly language code for the same instructions: 


ORG $6000 
LDA #$10 
STA $6040 


ORG $6000 says start the program at address $6000. LDA is a mnemonic for 
LoaD Accumulator (the Apple 6502 microprocessor uses some 56 mnemonics 
for assembly language instructions). The # prefix says #$10 is a number, not a 
memory address. STA is a mnemonic for STore Accumulator and $6040 is the 
address where #10 is to be stored. This type of code is called a source code and 
the assembler, when it is instructed to do so, assembles the source code into the 
object code and usually will display or print both codes together, one next to the 
other. 

Now, imagine a program hundreds or even thousands of lines long. 
Obviously, a program written in assembly language is more easily written (and 
read) than one written in machine language. But assemblers have even more 
useful features, not the least of which are editing capabilities that allow you to go 
anywhere in the program and change numbers and lines around without having 
to reenter the whole thing. In addition, assemblers allow the use of labels and 
comments, both very useful features. 

The source code from most assemblers is divided into several fields or 
columns. First, a line number is displayed for each instruction. These line 
numbers are not incorporated into the object code—they are there for editing 
convenience. The next field is reserved for labels, which are optional. When a 
region of the program is labeled, it can be accessed by referring to the label 
rather than to a specific memory location. This not only makes the program 
more readable but also eliminates the chore of changing instructions to reflect 
new memory addresses when lines are shifted around. The next field is the 
command field, which contains the opcode and, if required, the operand, the 
number or address acted upon by the opcode. Finally, there is the comment 
field, usually delimited by a semi-colon(;). Comments are similar to REM state- 
ments in BASIC and are not incorporated into the object code. 
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Let’s look at a sample program. When the source code is typed in, it will 
look like this (the field headings are not displayed by the assembler—they are 
there for your edification): 


Line Label Opcode Operand Comments 
1 * SAMPLE PROGRAM 
2 ORG $6000 ;START PROGRAM AT $6000 
3 LOOP LDA #$10 ;LOAD A WITH #$10 
4 STA $6040 ;STORE AT $6040 
5 JMP LOOP ;GO TO LOOP (LINE 3) 


Line numbers are entered automatically by the assembler. Line 1 demon- 
strates another feature of assemblers—an entire line can be a comment if de- 
limited by a *. Such lines are not incorporated into the object code. When the 
command to assemble (usually ASM) is given, the object and source codes are 
displayed side by side: 


1 *SAMPLE PROGRAM 

2 ORG $6000 ;START PROGRAM AT $6000 
6000:A9 10 3 LOOP LDA #$10 ;LOAD A WITH #$10 
6002:8D 4060 4 STA $6040 ;STORE AT $6040 
6005:4C 0060 5 JMP LOOP ;GO TO LOOP (LINE 3) 


The source code and object code are named by you and then saved 
separately on a disc. The assembler will append a prefix or suffix automatically to 
one or the other to distinguish which is which. For example, the disc catalog 
may show the object code as SAMPLE PROGRAM and the source code as SAM- 
PLE PROGRAMS. This is how programs appear when assembled using the BIG 
MAC assembler. Other assemblers may do this differently. 

The object code is the machine language program we want to run. The 
source code is not a program and can’t be “run” as such. How do we run the 
program? Object codes are always stored as binary files. To run, we enter BRUN 
<space> file name (in this case, SAMPLE PROGRAM). This program will be 
loaded at address $6000 and will run starting from this location. We can also 
load the program without running it if, for example, we want just to inspect it. 
The instructions for this are BLOAD <space> file name. To see the program 
we've loaded, enter the Monitor with CALL-151 and then type 6000L (L for 
list). The program, along with its assembly language mnemonics but without 
labels or comments, will be listed starting from $6000. To run the program now 
we can enter 6000G (G for go to). 

Suppose we decide at some later date that $6000 is an inappropriate loca- 
tion for this program because we want to use this area for something else. Let’s 
say we now want to store it at address $4000 instead. We can do this by specify- 
ing the address when we BLOAD it, i.e. BLOAD <space> file name,A$4000. The 
program will now load at $4000 and we can run it from the Monitor by 4000G. What 
will happen when we run it? Disaster! The reason is that the machine language 
code is nonrelocatable, that is, it can be run only at the location specified by the 
ORG statement. To see why this is so, let’s look at the code itself. The assembly 
language instruction in line 5 is JMP LOOP. LOOP is a label that refers to address 
$6000. Remember that object codes do not deal with labels, only numbers, and 
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so the assembled code for line 5 is 4C 00 60, which is interpreted by the operat- 
ing system to mean go to address $6000. If the program is loaded at and run 
from $4000, the 4C 00 60 instruction will be executed faithfully and the pro- 
gram will jump to $6000, which no longer contains the original instruction. Gar- 
bage in, garbage out. 

It is possible to write relocatable codes, that is, programs that can be loaded 
anywhere regardless of the address specified by the ORG statement. Sometimes 
such codes are necessary, but for our purposes this represents just another com- 
plication we can do without. If you want to relocate a program, simply call up 
the source program, change the ORG operand to the new address, and 
reassemble. 

There is one other aspect of assembler use that should be emphasized so I'll 
mention it here and remind you of it again in later chapters. Assembly language 
opcodes are entered as 3-letter mnemonics, designed to help you remember 
what they stand for. Two such opcodes, BCC (Branch on Carry Clear) and BCS 
(Branch on Carry Set) are often not helpful in this regard. In the BIG MAC and 
most other full feature assemblers, these opcodes can be replaced by what are 
called pseudo-opcodes; e.g., BCC can be replaced by BLT (Branch if Less Than) 
and BCS by BGE (Branch if Greater or Equal). If your assembler doesn’t use 
these pseudo-opcodes, just use BCC and BCS—there is no difference in the 
assembled program. Purists might argue against the use of pseudo-opcodes 
because they are not part of the standard Apple instruction set, but they do make 
programs easier to write and read. I should also mention at this point that the 
instruction EQU, which is used to assign a label to a memory address, can be 
replaced in the BIG MAC and other assemblers by the = sign. If your assembler 
doesn’t allow it, use EQU. 

If all this is confusing to you, don’t worry about it. Get an assembler, read the 
instructions, look over some of the programs in this book to get a feel for it, and 
before you know it you'll be a bona fide assembly language programmer. Now, 
onward and upward (or, in the case of some programs, downward and 
acrossward ). 
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Drawing a Shape 
on the HiRes Screen 


Of graphics he certainly could write it; 
His talent so great he couldn't hide it. 
He plotted a shape 

That looked so like a grape 

It was all you could do not to byte it. 


D rawing a point or a series of points (i.e., a shape) on a hi-res screen 
involves only three operations: 


1. Display the screen. 
2. Clear it. 


3. Store a byte in a hi-res screen memory location ($2000-$3FFF for Page 1 
or $4000-$5FFF for Page 2). 


DISPLAYING THE HI-RES SCREEN 
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In Applesoft BASIC, the command HGR can be used both to clear and to 
display the Page 1 hi-res screen. Similarly, HGR2 clears and displays hi-res Page 2. 
To do this in assembly language is not quite that simple but really not all that 
difficult either (except perhaps for clearing the screen—we’ll get to that later). 
Displaying the hi-res screen of choice involves accessing what are called soft 
switches. These are certain memory locations that, when accessed, perform the 
desired function. Accessing a soft switch means either reading from it (PEEKing 
in BASIC) or writing to it (POKEing in BASIC). It doesn’t make any difference 
which numbers are read from or written to these memory locations. The access 
process itself is all that’s required. Some soft switches require a read, others a 
write, and some can be accessed either way (details of soft switches can be 
found in the reference manuals published by Apple for your particular machine). 
The soft switches of interest for hi-res graphics are the following: 
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Memory Location of Switch 


Decimal Hex Function 

49232 $C050 Turns on graphic mode 

49239 $C057 Selects hi-res mode 

49236 $C054 Selects Page 1 

49234 $C052 Selects full page graphics (Page 1) 
49237 $C055 Selects Page 2 

49235 $C053 Selects mixed text and graphics (Page 1) 
49233 $C051 Selects text mode 


Arbitrarily, I've decided to use Page 1 with full-screen graphics as the screen 
of choice for all programs in this book. The switches we want to access then are 
the first four in the table above. These switches can be accessed by either a read 
or a write. Try this in BASIC or directly from the keyboard: 


POKE 49232,0 :POKE 49239,0: POKE 49236,0: POKE 49234,0 


The Page 1 hi-res screen will be displayed (you will probably see a screen 
filled with random dots as these instructions, unlike HGR or HGR2, do not clear 
the hi-res screens). Now, how do we do this in assembly language? The assembly 
language instruction equivalent to a PEEK in BASIC is LDA, the mnemonic for 
LoaD Accumulator (the Accumulator is a part of the Apple’s 6502 microproces- 
sor that performs most number manipulations). The LDA instruction is used to 
load the Accumulator with a byte (LDA #$08 loads the number 8 into the 
Accumulator) or with the contents of a memory location (LDA $2057 loads the 
Accumulator with the byte stored in location $2057) —note that # preceding a 
number means it is a number, not a memory location. Because we're simply 
accessing a soft switch, the particular number loaded into the Accumulator is 
immaterial. 

The assembly language instruction equivalent to a POKE in BASIC is STA 
(STore Accumulator ). This instruction stores the number in the Accumulator in 
a specified memory location (STA $4097 stores the number in the Accumulator 
in location $4097 ). Again, when accessing a soft switch, the particular number is 
immaterial. 

Either LDA or STA can be used to access the soft switches we’re interested 
in but I’m going to use LDA throughout (it appears to be the traditional choice 
among assembly language programmers ). Thus, the assembly language code for 
displaying the Page 1 hi-res screen with full screen graphics is as follows. 


JPROGRAM 3-1 


: ASM 


1 ORG $6000 ;START PROGRAM AT $6000 
6000: AD 50 CO 2 LDA $C050 ;GRAPHICS 
6003: AD 57 CO 3 LDA $C057 3HI-RES 
6006: AD 54 CO 4 LDA $C054 3PAGE 1 
6009: AD 52 CO 5 LDA $C052 ;FULL SCREEN GRAPHICS 
600C: 60 6 RTS 


. --End assembly-- 


13 bytes 
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That’s all there is to it! Running this program (see the section in Chapter 2 
on using an assembler) will display the Page 1 hi-res screen (again probably 
with random dots as the screen is not cleared by these instructions). Let’s now 
use a feature of the assembler to make this program more readable. As men- 
tioned previously, we can assign labels to particular memory locations so that the 
code reads more like text rather than a series of numbers (this is always nice to 
do so that when you come back to it three months later you won’t wonder why 
in heaven’s name you LDAed $C050). Here is the same program with labels for 
the soft switches (JMP is an instruction equivalent to GOTO in BASIC). 


JPROGRAM 3-2 


:ASM 

1 ORG $6000 
6000: 4C 03 60 2 JMP PGM 

3 GRAPHICS = $C050 

4 HIRES = $C057 

5 PAGE1 = $C054 

6 MIXOFF == $C052 
6003: AD 50 CO 7 PGM LDA GRAPHICS 
6006: AD 57 CO 8 LDA HIRES 
6009: AD 54 CO 9 LDA PAGE1 

18 600C: AD 52 CO 10 LDA MIXOFF 
600F: 60 11 RTS 
--End assembly-- 
16 bytes 
Symbol table - numerical order: 
PGM =$6003 GRAPHICS=$C050 MIXOFF =$C052 PAGEL =$C054 


HIRES  =$C057 


Obviously this is a much more readable listing. We’re going to use labels as 
often as we can throughout the book with the idea of eliminating numbers from 
the source code as much as possible. 


CLEARING THE HI-RES SCREEN 
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Now that we've displayed the hi-res screen, we must clear it before drawing 
on it. Clearing the screen means turning it all to black, i.e., no dots displayed. 
There is no simple command, such as BASIC’s HGR, to do this in assembly lan- 
guage. However, the assembly language clear routine is a relatively short pro- 
gram (13 lines), and besides clearing the screen, it also serves as a good example 
of the use of some common assembly language instructions. 

Remember we said before that to draw on a hi-res screen we first display the 
screen and then store bytes at hi-res screen memory locations. Well, we’ve 
already displayed the screen. Now, what bytes do we store and where to clear 
the screen? It turns out that if you load a hi-res screen location with byte #$00, 
that portion of the screen will turn to black, i.e., no dots (the relationship of 
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other bytes to what appears on the screen will be dealt with later in this chap- 
ter). Thus, to clear the Page 1 hi-res screen we load all the screen locations, 
from $2000 to $3FFF, with zeros. The following program shows how this is done. 


JPROGRAM 3-3 


:ASM 
1 ORG $6000 
6000: 4C 03 60 2 JMP  PGM 
3 GRAPHICS = $C050 
4 HIRES = $C057 
5 PAGE1 = $C054 
6 MIXOFF = $C052 
6003: AD 50 CO 7 PGM LDA GRAPHICS 
6006: AD 57 CO 8 LDA HIRES 
6009: AD 54 CO 9 LDA PAGE1 
600C: AD 52 CO 10 LDA MIXOFF 
600F: A9 00 11 LDA #$00 ;CLEAR SCREEN PAGE 1 
6011: 85 26 12 STA $26 
6013: AQ 20 13 LDA #$20 
6015: 85 27 14 STA $27 
6017: AO 00 15 CLR1 LDY #$00 
6019: AQ 00 16 LDA #$00 
601B: 91 26 17. —CLR STA ($26),Y 
601D: C8 18 INY 
601E: DO FB 19 BNE CLR 
6020: E6 27 20 INC $27 
6022: AS 27 21 LDA $27 
6024: C9 40 22 CMP #$40 
6026: 90 EF 23 BLT CLR1 
6028: 60 24 RTS 
--End assembly-- 
41 bytes 
Symbol table - numerical order: 
PGM =$6003 CLR1 =$6017 CLR =$601B GRAPHICS=$C050 
MIXOFF =$C052 PAGE1 =$C054 HIRES =$C057 


Let’s see how it works (assembly language literates or those simply uninter- 
ested can skip to the next section). First, byte #$00 is stored in location $26 
(lines 11 and 12). Location $26 is called a zero page address because its actual 
address is $0026. There’s a reason for choosing a zero page address as we'll soon 
see. Lines 13 and 14 load #$20 into zero page address $27. Line 15 loads #$00 
into the Y register (the Apple’s microprocessor has two areas other than the 
Accumulator that can store bytes—the X and Y registers). Line 16 loads the 
Accumulator with #$00. Line 17 does the real work. It uses a type of command 
called indirect indexing, which works only with the Y register and a zero page 
address (hence choosing a zero page address to begin with). STA ($26),Y says 
take the contents of the Accumulator (#$00 from line 16) and store it in a 
memory address calculated as follows: go to location $26 to get the low byte of 
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the address and then get the high byte from the next zero page location, i.e., $27; 
add the contents of the Y register to get the final address. 


STA ($26), Y ————® LOCATION CONTENTS ACCUMULATOR 
#$00 


$2000 + Y = $2000 
Y = #$00 


Note what has happened. A zero has been stored at location $2000, the first 
location of hi-res screen Page 1, turning it black. We’re on our way! Line 18 
(INY) now increments the contents of the Y register by one. Y now contains 
#$01. Line 19 says if Y has not yet reached zero (incrementing the maximum 
value [#$FF] by one results in #$00), branch back to CLR (line 17). Line 17 now 
calculates the new address as $2001. 


STA ($26), ¥Y ————® LOCATION CONTENTS ACCUMULATOR 
#$00 


$2000 + Y = $2001 
Y = #$01 


Now we've blacked out the next screen location at $2001. This continues 
until Y is incremented to zero, thus blacking out 256 bytes. Then the number 
located in address $27 is incremented by one (line 20). Next we do a compari- 
son to see if we’re finished. We load the Accumulator with the byte in $27 and 
compare it to $40 (line 22). If the Accumulator contains #$40 we want to stop 
because this will get us into the Page 2 hi-res screen. The command in line 23 
(BLT, Branch if Less Than, a code that can be used by some assemblers in place 
of the standard BCC, Branch on Carry Clear) says branch or jump to CLR1 if the 
Accumulator byte is less than #$40. If it is #$40, the branch is not taken and the 
program ends. When we branch to CLR1, we load Y again with #$00 and line 17 
puts a zero at location $2100. 


STA ($26),Y ————®» LOCATION CONTENTS ACCUMULATOR 
#500 


$2100 + Y = $2100 
Y = #$00 
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Each time 256 bytes are blacked out, $27 is incremented by one and a new page 
of memory is selected. 


Determined by $27 $20 | 00 ----- 256 bytes (determined by Y)----------- to $20FF 
84. 00) sites cements mcemccc teense eens oeennientctene to $21FF 
$22 | 00 ------------------------------------------------ to $22FF 


$3F | 00 ------------_--__-_----__------_-------—- to $3FFF 
$40 | 00 ----- Stop — beginning of page 2 hi-res----- 


This whole routine takes less than a tenth of a second. Talk about assembly 
language speed! By the way, if you want to clear hi-res Page 2, place #$40 in line 
13 and #$60 in line 22. The screen addresses will then be $4000 to $5FFF. 


DRAWING A SHAPE 
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Now that we’ve displayed the screen and cleared it, let’s draw something on 
it (about time, eh?). 

We've seen that if we store a zero at a hi-res screen location, that location 
turns black. The heart of hi-res drawing is the fact that if we write any byte other 
than zero to the screen, dots will appear (actually, storing byte #$80 will also 
produce no dots—this is a complication we don’t need, right? We’ll discuss why 
this happens below). Let’s now discuss the relationship of bytes to dot patterns. 
The details are a bit messy but the application is easy. 

Remember that a byte is a series of 8 bits, each one of which can be off (0) 
or on (1). You guessed it! If a bit is 0, the screen is black at that point; if a bit is 
1, a dot is turned on. But there are complications (you wouldn’t want this to be 
too easy, would you, else how could you impress your friends? ). First, only 7 of 
the 8 bits determine a dot pattern. The leftmost or most significant bit (also 
called the high bit) is used to select colors for the byte (more on this in a later 
chapter). This is why storing byte #$80 will produce no dots. For now, we'll 
always use 0 as the high bit. Second, the remaining 7 bits are plotted backwards! 
Why? Don’t ask. Let’s just see how it works. Here is a byte and the dot pattern 
that results when this byte is sent to a hi-res screen location. 


High Bit 


O- 1 0 0 1 1 1 1 Hex #$4F 


How does one convert a dot pattern to a byte? Don’t fret. It’s easy. Place the 
desired dot pattern in 7 boxes and number the boxes as shown. 
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1 2 4 SP 2 4 


#$4F 


Take the rightmost 3 bits and convert them to a hex number. This is the first 
number of the byte. Then do the same for the leftmost 4 bits. This gives you the 
second number of the byte. You now have the byte, #$4F, that will give you the 
desired dot pattern. Let’s try another example. 


1 2 48 1 2 4 


#$6B 


Got it? OK. Let’s now write a program that will display the dot pattern in the 
last example, i.e., the one specified by #$6B. We're going to put this byte in the 
first line (line 0) and the first byte (byte 0) of the hi-res screen Page 1 (location 
$2000), which is in the upper left-hand corner of the screen. (Be careful to 
distinguish between the screen byte, which is the location of the horizontal 
column [0-39 across the screen] where the shape is to be drawn, and the shape 
byte, which is the byte that determines the dot pattern.) 


JPROGRAM 3-4 


:ASM 

1 ORG $6000 
6000: 4C 03 60 2 JMP PGM 

3 GRAPHICS = $C050 

4 HIRES = $C057 

5 PAGE1 = $C054 

6 MIXOFF = $C052 
6003: AD 50 CO 7 PGM LDA GRAPHICS 
6006: AD 57 CO 8 LDA HIRES 
6009: AD 54 CO 9 LDA PAGE1 
600C: AD 52 CO 10 LDA MIXOFF 
600F: A9 00 11 LDA #$00 ;CLEAR SCREEN PAGE 1 
6011: 85 26 12 STA $26 
6013: A9 20 13 LDA #$20 


6015: 85 27 14 STA $27 
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6017: AO 00 15 CLR1 LDY #$00 


6019: AQ 00 16 LDA #$00 
601B: 91 26 17 CLR STA ($26),Y 
601D: C8 18 INY 

601E: DO FB 19 BNE CLR 
6020: E6 27 20 INC $27 
6022: AS 27 21 LDA $27 
6024: C9 40 22 CMP #$40 
6026: 90 EF 23 BLT CLR1 
6028: AQ 6B 24 LDA #$6B 
602A: 8D 00 20 25 STA $2000 ;PLOT BYTE 
602D: 60 26 RTS 


--End assembly-- 


46 bytes 


Symbol table - numerical order: 


PGM: =$6003 CLR1 =$6017 CLR =$601B GRAPHICS=$C050 
MIXOFF =$C052 PAGE1 =$C054 HIRES =$C057 


We've now drawn our first shape; admittedly, it’s not much of a shape but 
we have to start somewhere (actually it does look something like a far-away bird 
or maybe an airplane—it helps to have imagination in this business). Let’s get 
more ambitious now and draw something more interesting, say, a person. The 
shape will be 1-byte wide by 6-lines deep. Here is the dot pattern, the corres- 
ponding bytes, and the line addresses where the bytes will be drawn. 


Shape Byte Line Address 


JPROGRAM 3-5 


ASM 

1 ORG $6000 
6000: 4C 03 60 2 JMP PGM 

3 GRAPHICS = $C050 

4 HIRES = $C057 

5 PAGE1 - $C054 

6 MIXOFF = $C052 
6003: AD 50 CO 7 PGM LDA GRAPHICS 
6006: AD 57 CO 8 LDA HIRES 
6009: AD 54 CO 9 LDA PAGE1 
600C: AD 52 cO 10 LDA MIXOFF 
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600F: A9 00 11 LDA #$00 ;CLEAR SCREEN PAGE 1 
6011: 85 26 12 STA $26 
6013: AQ 20 13 LDA #$20 
6015: 85 27 14 STA $27 
6017: AO 00 15 CLR1 LDY #$00 
6019: A9 00 16 LDA #$00 
601B: 91 26 17. CLR STA ($26),Y 
601D: C8 18 INY 

601E: DO FB 19 BNE CLR 
6020: £6 27 20 INC $27 
6022: AS 27 21 LDA $27 
6024: C9 40 22 CMP #$40 
6026: 90 EF 23 BLT CLR1 
6028: A9 08 24 LDA #$08 ;DRAW SHAPE 
602A: 8D 00 20 25 STA $2000 
602D: AQ 3E 26 LDA #$3E 
602F: 8D 00 24 27 STA $2400 
6032: AQ 5D 28 LDA #$5D 
6034: 8D 00 28 29 STA $2800 
6037: AQ 1C 30 LDA #$1C 
6039: 8D 00 2C 31 STA $2C00 
603C: AQ 14 32 LDA #$14 
603E: 8D 00 30 33 STA $3000 
6041: AQ 22 34 LDA #$22 
6043: 8D 00 34 35 STA $3400 
6046: 60 36 RTS 


--End assembly-- 


71 bytes 


Symbol table - numerical order: 


PGM =$6003 CLR1 =$6017 CLR =$601B GRAPHICS=$C050 
MIXOFF =$C052 PAGE1  =$C054 HIRES  =$C057 


We can put the shape anywhere on the hi-res screen by changing the screen 
locations. For example, if we want to plot it one byte over (one byte from the 
left screen border), the addresses would be $2001, $2401, $2801, etc. 


LINE ADDRESS TABLES 


eee e eee ere rece eee eee r eee eee eeseeeeeeseeeeeeeeees 


There’s nothing wrong with this program (it works) but it doesn’t address 
(pardon the pun) the major headache in hi-res plotting, i.e., calculating line 
addresses. We would like to plot the shape from, say, lines 0 to 5 without bother- 
ing about the nonconsecutive nature of the screen line addresses. With the 
procedure I’m about to describe, one can plot a shape at any line and byte 
position without having to refer to a huge map of all 7680 screen positions. This 
will become especially important when we deal with animation, which involves 
moving shapes around the screen. There is more than one way to solve this 
problem, but the easiest and fastest way is to use table look-ups. The high byte 
and low byte of each line address is stored in tables. A line number from 0 to 
191 is specified; by looking up the table, the correct line address is retrieved. 


eee eee eee eee ee EEE RO EEE EEE EEE HEHE EEE OSES EEE EEEEEEE SESE EEE EEE EEE EEE EEE EEE Eee eees 


Drawing a Shape on the Hi-Res Screen 


The byte position (0-39) also is specified and added to the line address to get 
the correct screen position. Let’s see how it works (see Program 3-6). 

There are two tables, one labeled HI for the high bytes and one labeled LO 
for the low bytes. Each table is 192 bytes long for the 192 line addresses. (The 
BIG MAC Assembler and some others allow the entry of hex numbers without 
prescripts using the HEX command; some assemblers do not support this 
instruction and require the code DFB #$20, #$24, #$28, etc. The ORCA/M 
assembler uses a DC H’ directive; refer to your assembler’s instructions.) Sup- 
pose we want to plot our man shape at byte 0, lines 0 to 5 as before. We'll use 
the Y register to hold the byte position and the X register to hold the line 


position. 


PROGRAM 


> ASM 


6000: 


6003: 
6006: 
6009: 
600C: 
600F : 
6011: 
6013: 
6015: 
6017: 
6019: 
601B: 
601D: 
601E: 
6020: 
6022: 


4c 


03 60 


50 CO 
57 CO 
54 CO 
52 CO 


WOONDOPWNMre 


GRAPHICS 


HIRE 
PAGE 


MIXOFF 


PGM 


CLR1 
CLR 


DISPLAY SCREEN, 
HI-RES PAGE 1 


CLEAR SCREEN 


X = LINE NUMBER 
Y = BYTE POSITION 


GET LINE ADDRESS 


LOAD A WITH 
SHAPE BYTE 


NEXT LINE 


$6000 
PGM 
$C050 
$C057 
$C054 
$C052 
LDA GRAPHICS 
LDA HIRES 
LDA PAGE1 
LDA MIXOFF 


ao 
=n 
Um 


S 
1 


LDA #$00 ;CLEAR SCREEN PAGE 1 


STA $26 

LDA #$20 
STA $27 

LDY #$00 
LDA #$00 
STA ($26),Y 


BNE CLR 
INC $27 
LDA $27 


rs) 


Bs 


Hi-Res Graphics and Animation Using Assembly Language Tivie'e (8 0.5idid SUSE Ube cigidn wees eeeineceecslbecevoucvccecevisccenscsccbessinesicieeievesins 


6024: C9 40 22 CMP #$40 
6026: 90 EF 23 BLT CLR1 

24 KKKKKKKKKK KKK KKK 
6028: A2 00 25 LDX #$00 ;LINE NUMBER 
602A: AO 00 26 LDY #$00 sBYTE NUMBER 
602C: BD 86 60 27 LDA HI,Xx ;GET LINE ADDRESS 
602F: 85 77 28 STA $77 
6031: BD 46 61 29 LDA LO,x 
6034: 85 76 30 STA $76 
6036: A9 08 31 LDA #$08 
6038: 91 76 32 STA ($76),Y — ;PLOT 
603A: E8 33 INX NEXT LINE 
603B: BD 86 60 34 LDA HI,X 
603E: 85 77 35 STA $77 
6040: BD 46 61 36 LDA LO,X 
6043: 85 76 37 STA $76 
6045: AQ 3E 38 LDA #$3E 
6047: 91 76 39 STA ($76),Y  ;PLOT 
6049: E8 40 INX NEXT LINE 
604A: BD 86 60 41 LDA HI,X 
604D: 85 77 42 STA $77 
604F: BD 46 61 43 LDA LO,X 
6052: 85 76 44 STA $76 
6054: AQ 5D 45 LDA #$5D 
6056: 91 76 46 STA ($76),Y  ;PLOT 
6058: E8 47 INX NEXT LINE 
6059: BD 86 60 48 LDA HI,X 
605C: 85 77 49 STA $77 
605E: BD 46 61 50 LDA LO,X 
6061: 85 76 51 STA $76 
6063: AQ 1C 52 LDA #$1C 
6065: 91 76 53 STA ($76),Y  ;PLOT 
6067: E8 54 INX NEXT LINE 
6068: BD 86 60 55 LDA HI,X 
606B: 85 77 56 STA $77 
606D: BD 46 61 57 LDA LO,Xx 
6070: 85 76 58 STA $76 
6072: AQ 14 59 LDA #$14 
6074: 91 76 60 STA ($76),Y — ;PLOT 
6076: E8 61 INX NEXT LINE 
6077: BD 86 60 62 LDA HI,Xx 
607A: 85 77 63 STA $77 
607C: BD 46 61 64 LDA LO,Xx 
607F: 85 76 65 STA $76 
6081: A9 22 66 LDA #$22 
6083: 91 76 67 STA ($76),Y — ;PLOT 
6085: 60 68 RTS 
6086: 20 24 28 69 HI HEX 2024282C3034383C ; HIGH BYTE LINE ADDRESSES 
6089: 2C 30 34 38 3C 
608E: 20 24 28 70 HEX 2024282C3034383C 
6091: 2C 30 34 38 3C 
6096: 21 25 29 71 HEX 2125292D3135393D 
6099: 2D 31 35 39 3D 
609E: 21 25 29 72 HEX 2125292D3135393D 
60Al: 2D 31 35 39 3D 
60A6: 22 26 2A 73 HEX 22262A2E32363A3E 
60A9: 2E 32 36 3A 3E 
60AE: 22 26 2A 74 HEX 22262A2E32363A3E 
60B1: 2E 32 36 3A 3E 
60B6: 23 27 2B 75 HEX 23272B2F33373B3F 


60B9: 2F 33 37 3B 3F 


eee eee eee eee eee errr ereere rere re erer eee ee err erer ere rere reer eee eee eee e eee eee eee ee Drawing a Shape on the Hi-Res Screen 


60BE: 
60C1: 
60C6: 
60C9: 
60CE: 
60D1: 
60D6: 
60D9: 
60DE: 
60E1: 
60E6: 
60E9: 
60EE: 
60F 1: 
60F6: 
60F9: 
60FE: 
6101: 
6106: 
6109: 
610E: 
6111: 
6116: 
6119: 
611E: 
6121: 
6126: 
6129: 
612E: 
6131: 
6136: 
6139: 
613E: 
6141: 
6146: 
6149: 
614E: 
6151: 
6156: 
6159: 
615E: 
6161: 
6166: 
6169: 
616E: 
6171 
6176: 
6179: 
617E: 
6181: 
6186: 
6189: 
618E: 
6191: 
6196: 
6199: 
619E: 
61Al: 
61A6: 
61A9: 
61AE: 


HEX 


23272B2F 33373B 3F 
20242820 3034383C 
20242820 3034383C 
2125292D3135393D 
2125292D3135393D 
22262A2E32363A3E 
22262A2E32363A3E 
23272B 2F 33373B3F 
23272B 2F 3337 3B 3F 
2024282C3034383C 
2024282C3034383C 
2125292D3135393D 
2125292D3135393D 
2226 2A2E32363A3E 
22262A2E32363A3E 
23272B2F 33373B3F 
23272B 2F 3337 3B 3F 
0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
2828282828282828 
A8A8A8A8A8A8A8A8 
2828282828282828 
A8A8A8A8A8A8A8A8 
2828282828282828 
A8A8A8A8A8A8A8A8 


; LOW BYTE LINE ADDRESSES 
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61B1: A8 A8 A8 A8 A8 


61B6: 28 28 28 107 HEX 2828282828282828 
61B9: 28 28 28 28 28 
61BE: A8 A8 A8 108 HEX A8A8A8A8A8A8A8A8 
61C1: A8 A8 A8 A8 A8 
61C6: 50 50 50 109 HEX 5050505050505050 
61C9: 50 50 50 50 50 
61CE: DO DO DO 110 HEX DODODODODODODODO 
61D1: DO DO DO DO DO 
61D6: 50 50 50 111 HEX 5050505050505050 
61D9: 50 50 50 50 50 
61DE: DO DO DO 112 HEX DODODODODODODODO 
61E1: DO DO DO DO DO 
61E6: 50 50 50 113 HEX 5050505050505050 
61E9: 50 50 50 50 50 
61EE: DO DO DO 114 HEX DODODODODODODODO 
61F1: DO DO DO DO DO 
61F6: 50 50 50 115 HEX 5050505050505050 
61F9: 50 50 50 50 50 
61FE: DO DO DO 116 HEX DODODODODODODODO 


6201: DO DO DO DO DO 


--End assembly-- 


518 bytes 


Symbol table = numerical order: 


PGM =$6003 CLR1 =$6017 CLR =$601B HI =$6086 
LO =$6146 GRAPHICS=$C050 MIXOFF =$C052 PAGE1 =$C054 
HIRES  =$C057 


Let’s look at the program starting from line 25. 


LDX #$00 Line number in X register 
LDY #$00 Byte number in Y register 


LDA HI,X This instruction is called absolute indexing. The Accumulator is 
loaded with the byte found in location HI + X (remember that HI 
is a label for a particular address ). Because X = 0, the first byte in 
the HI table (#$20) is loaded into the Accumulator. 


STA $77 The contents of the Accumulator (#$20) are placed in a zero page 
location. 


LDALO,X — The Accumulator is loaded with the low byte of the line address, 
ie., the byte in LO + X. Because X = 0, the first byte in the LO 
table (#$00) is loaded into the Accumulator. 


STA $76 #$00 is placed in another zero page location. 


$76 and $77 now contain the low and high bytes of the address of 
line 0 ($2000). 


LDA #$08 The first shape byte to be plotted is put into the Accumulator. 


SOR Oeeee meme e eee eee Hee e OEE EEE OE EE EES E EE EE EEE ES EE EEE EEESE EEE E EEE SHEE HESS EE EEEEEeEeEseeeees 


STA ($76),Y We've seen this instruction before in the clear screen routine. It 
stores the Accumulator contents at a screen address retrieved 
from the contents of zero page addresses $76 and $77 plus Y, the 
byte position. 


LOCATION CONTENTS ACCUMULATOR 
#$08 


STA ($76),Y 


$2000 + Y = $2000 (LINE 0) 
Y = #$00 


We've now plotted the first shape byte at line 0, byte 0. The second shape 
byte now goes on line 1. To plot on this line, we increment X by one and repeat 
the above steps with the next shape byte. 


INX X now contains #$01 

LDA HI,X Loads the Accumulator with the second byte in table HI (HI + 
1 = #$24) 

STA $77 $77 now contains #$24. 

LDA LO,X Loads the Accumulator with the second byte in table LO (LO + 
1 = #$00). 


STA $76 $76 now contains #$00. 
LDA #$3E Loads the Accumulator with the second shape byte. 
STA ($76),Y The second shape byte is plotted at $2400 + Y = $2400 (line 1). 


STA ($76), Y ————* __ LOCATION CONTENTS ACCUMULATOR 
#$3E 


$2400 + Y = $2400 (LINE 1) 
Y = #$00 


These steps are repeated until all the shape bytes are drawn. We can change 
the byte and line locations by putting different values in the Y and X registers. 
For example, to plot the shape starting at screen line 5 and screen byte 4, place 
5 in X and 4 in Y. LDA HI,X and LDA LOX retrieves the line address $3400. STA 
($76),Y adds 4 to this address to get the desired screen position, $3404. 


Drawing a Shape on the Hi-Res Screen 


| BS 


Bs 
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SHAPE TABLES 


Pee eee eee eee eee eee eee EEE eE ETE TESTES ETEEEEEEE® 


Simple, no? But not as simple as it can be. There is one further refinement 
we can use to obtain a more compact and more easily read program. Instead of 
having a separate draw routine for each byte of the shape, we can store the shape 
bytes in a shape table and use just one draw routine. Thus, if the shape bytes are 
stored in a table labeled SHAPE, the instruction LDA SHAPE,X will retrieve the 
first byte when X = 0, the second byte when X = 1, and so on. Let’s look at a 
program that puts this all together. We'll plot the man shape at screen byte 4 and 
the top of the shape starting at screen line 5. 


DISPLAY SCREEN, 
HI-RES PAGE 1 
CLEAR SCREEN 
SET INITIAL LINE NUMBER, 
BYTE POSITION AND DEPTH 
ZERO XCUUNT 
X = LINE NUMBER 
Y = BYTE POSITION 
GET LINE ADDRESS 
X = XCOUNT 


LOAD A WITH SHAPE 
BTYE — LDA SHAPE, X 


DRAW 
INC XCOUNT 
NEXT LINE 
No 
LINE = DEPTH? 
Yes 
STOP 


Pereeeeeeeeeree errr eeeeee ee eee ere eee eee eee eee eee eee eee eee Drawing a Shape on the Hi-Res Screen 


JPROGRAM 3-7 


:ASM 


6000: 4C 07 60 


6007: 
600A: 
600D: 
6010: 
6013: 
6015: 
6017: 
6019: 
601B: 
601D: 
601F: 
6021: 
6022: 
6024: 
6026: 
6028: 
602A: 


602C: 
602E: 
6031: 
6032: 
6034: 
6037: 
6039: 
603C: 
603E: 
6041: 
6044: 
6047: 
604A: 
604C: 
604F : 
6051: 
6054: 
6057: 
6059: 
605C: 
605F : 
6062: 
6065: 
6067: 
6068: 
606B: 


OONDNPWNMHrHE 


ORG 

JMP 
BYTE DS 
LINE DS 
DEPTH DS 
XCOUNT 
GRAPHICS 
HIRES 
PAGE1 
MIXOFF 
HIGH 
LOW 
PGM LDA 


Ot Me Roe SS 
n 


CLR1 LDY 


CLR STA 


BLT 


$6000 
PGM 

1 

1 

1 

1 

$C050 
$C057 
$C054 
$C052 
$1B 

$1A 
GRAPHICS 
HIRES 
PAGE1 
MI XOFF 
#$00 ;CLEAR SCREEN PAGE 1 
LOW 
#$20 
HIGH 
#$00 
#$00 
(LOW), Y 


CLR 31 
HIGH 


HIGH as 


#$40 
CLR1 


KkKKKKKKKKKKKK KKK 


LDA 
STA 
CLC 
ADC 
STA 
LDA 
STA 
LDA 
STA 
DRAW LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
STA 
INC 
INC 
LDA 
CMP 
BLT 
RTS 
SHAPE HEX 


HI 
LO 


#$05 
LINE ;LINE NUMBER 


#$06 

DEPTH ;ADD DEPTH OF SHAPE 
#$04 

BYTE sBYTE 

#$00 

XCOUNT ;ZERO XCOUNT 

BYTE sBYTE IN Y REGISTER 
LINE LINE IN X REGISTER 
HI,X ;GET LINE ADDRESS 
HIGH 

LO, Xx 

LOW 

XCOUNT ;LOAD X WITH XCOUNT 
SHAPE,X  ;GET SHAPE BYTE 
(LOW),Y  ;PLOT 


XCOUNT 

LINE 3NEXT LINE 

LINE 

DEPTH 31S SHAPE DONE? 

DRAW ;1F NO, CONTINUE DRAW 
sIF YES; STOP 

083E5D1C1422 
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Symbol table - numerical order: 


LOW =$1A HIGH =$1B BYTE =$6003 LINE =$6004 
DEPTH =$6005 XCOUNT =$6006 PGM =$6007 CLR1 =$601B 
CLR =$601F DRAW =$6041 SHAPE  =$6068 HI =$606E 
LO =$612E GRAPHICS=$C050 MIXOFF =$C052 PAGE1  =$C054 


HIRES  =$C057 


HI and LO refer to the tables in Program 6-2. 

Let’s examine the program in some detail, because some new elements of 
assembler use have been added. We need to reserve some space in the program 
to hold the values for byte, line, depth of shape, and XCOUNT (the use of 
XCOUNT will be described below). This is done by using the code DS for 
Defined Storage. Thus, BYTE DS 1 will reserve one memory location somewhere 
between $6000 and PGM and label it BYTE (the precise location is displayed in 
the Symbol Table at the end of the program listing). Also, in keeping with our 
desire to remove numbers from the source code, we define zero page addresses 
$1A as LOW and $1B as HIGH, and use these labels also in the clear screen 
routine. (Using $1A and $1B as zero page addresses ensures no conflict with 
DOS commands or any BASIC program we might want to integrate with our 
assembly language program—see Chapter 16). 

We first enter the initial values for line, byte, and depth of shape (lines 31 to 
37). Note that the shape depth is added to the starting line number (lines 33 to 
32 35) so that DEPTH will contain the value #$05 + #$06 = #$0B (ADC means 
z ADd with Carry and must always be preceded with CLC, CLear Carry). In the 

DRAW routine, Y is loaded with the screen byte (line 40) and X with the start- 
ing line (line 41). XCOUNT is initially set to zero (lines 38 to 39). Lines 42 to 
45 get the line address for the first line to be plotted. 

We now need another counter to access the bytes in the shape table but 
there are no more available—A, X, and Y are being used already. To get around 
this, we load X temporarily with the value in XCOUNT and use XCOUNT as the 
shape table counter (X is reloaded with the line number by line 41). Thus, LDA 
SHAPE,X (line 47) loads A, the Accumulator, with the first byte of the shape 
table, because X = 0 from the initial value of XCOUNT. STA (LOW),Y (line 48) 
then plots the first shape byte at line 5, byte 4. XCOUNT is incremented by one 
(line 49) and now contains the value #$01. LINE is also incremented by one 
(line 50); it now contains the value #806. This new line number is now com- 
pared to the value in DEPTH (line 52). 

To do a CMP comparison, you must first load A with the number to be 
compared to (line 51). BLT DRAW (line 53) is an instruction that says if the 
number in A (the line number) is less than the number in DEPTH, go back to 
DRAW and continue drawing. At DRAW, X is loaded with the new line number 
(#$06) and a new address is obtained from the HI and LO tables. X is loaded 
with the new XCOUNT (#801) and LDA SHAPE,X loads A with the second byte 
of the shape table. This is then plotted at the new line by STA (LOW),Y. Thus, 
the second shape byte is plotted at screen line 6 and screen byte 4 (in this 
program, the screen byte isn’t changed). This whole process is then repeated 
until the last line plotted is equal to DEPTH. Then the branch at line 53 is not 
taken and the program ends. 

Compared to the previous program, this program is not only shorter but also 
easier to read and manipulate. For example, if we don’t like the way the shape 


000 66010 056 09000 bse nc ess eee seeneeseeeEeece66asebecdseeicncesorencnedetsseeeensosscesseesesesouss Drawing a Shape on the Hi-Res Screen 


looks, we can simply change numbers in the shape table. For larger programs 
with multiple shapes, the advantage of using shape tables becomes even more 


apparent. 


DRAWING SHAPES WIDER THAN ONE BYTE 


POeeeeOOCECOCOCOCO IC 


We've one more topic to discuss before we leave this chapter. Up to now, 
we've only plotted shapes of width one screen byte or less. Suppose we want to 
plot a shape that extends over two bytes or more. A slight change in the drawing 
routine is required. The following program (Program 3-8) plots the shape of a 
plane that is 2-bytes wide and 5-lines deep. 


SHAPE BYTES 
Screen Byte 1 Screen Byte 2 


The order of drawing will be: 


line 1, first screen byte, second screen byte 
line 2, first screen byte, second screen byte 


line 3, first screen byte, second screen byte, etc. 


Thus, the order of shape bytes in the shape table is 03 00 03 00 7D 3F 01 40 
TE SE. 

In the DRAW routine, we get the address of the first screen line and first 
screen byte and plot the first byte of the shape table. Then, on the same line, we 
increment Y (line 49) so that the next plot (STA (LOW),Y) will be at the 
second screen byte. LDA SHAPE+1,X (line 50) retrieves the second byte of the 
shape table for this plot. XCOUNT is then incremented by the number of bytes 
in the shape width; in this case, two. We then go to the next line by increment- 
ing LINE (line 54) and, because the shape isn’t finished yet, we go back to 
DRAW to reset the screen byte to its initial value (line 40) and obtain the new 
line address. Now LDA SHAPE,X will get the third shape byte because X = 2 
from XCOUNT. INY gets us to the next screen byte and LDA SHAPE+1,X 
retrieves the fourth shape byte. This continues until CMP DEPTH tells us the 
shape is finished. 


Bs 
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DISPLAY SCREEN, 
HI-RES PAGE 1 


CLEAR SCREEN 


SET INITIAL LINE NUMBER, 
BYTE POSITION AND DEPTH 


Y = BYTE POSITION 
BTYE — LDA SHAPE, X 


LOAD A WITH NEXT SHAPE 
BYTE — LDA SHAPE +1, X 


DRAW 
INC XCOUNT BY NO. OF 
BYTES IN WIDTH 
NEXT LINE 


LINE = DEPTH? 


Yes 


STOP 


Bs 


No 
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JPROGRAM 3-8 


: ASM 


6000: 4C 07 60 


6007: 
600A: 
600D: 
6010: 
6013: 
6015: 
6017: 
6019: 
601B: 
601D: 
601F: 
6021: 
6022: 
6024: 
6026: 
6028: 
602A: 


602C: 
602E: 
6031: 
6032: 
6034: 
6037: 
6039: 
603C: 
603E: 
6041: 
6044: 
6047: 
604A: 
604C: 
604F: 
6051: 
6054: 
6057: 
6059: 
605A: 
605D: 
605F: 
6062: 
6065: 
6068: 
606B: 
606E: 
6070: 


co 
CO 
CO 
CO 


WOONDOHPWNMrHE 


ORG 

JMP 
BYTE DS 
LINE DS 
DEPTH DS 
XCOUNT 
GRAPHICS 
HIRES 
PAGE1 
MIXOFF 
HIGH 
LOW 
PGM LDA 


nmuw wun oo 
n 


CLR1 LDY 
CLR STA 


BLT 


$6000 
PGM 

1 

1 

1 

1 
$C050 
$C057 
$C054 
$C052 
$1B 
$1A 
GRAPHICS 
HIRES 
PAGE1 
MIXOFF 
#$00 
LOW 
#$20 
HIGH 
#$00 
#$00 
(LOW),Y 


CLR 

HIGH 
HIGH 
#$40 
CLR1 


KKKEKKKKKKKKKKKKKKK 


LDA 
STA 
cLC 
ADC 
STA 
LDA 
STA 
LDA 
STA 
DRAW LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
STA 
INY 
LDA 
STA 
INC 
INC 
INC 
LDA 
CMP 
BLT 
RTS 


#$05 
LINE 


#$05 
DEPTH 
#$04 
BYTE 
#$00 
XCOUNT 
BYTE 
LINE 
HI,xX 
HIGH 
LO,X 
LOW 
XCOUNT 
SHAPE , X 
(LOW) ,Y 


SHAPE+1, X 
(LOW), Y 
XCOUNT 
XCOUNT 
LINE 

LINE 
DEPTH 
DRAW 


;CLEAR SCREEN PAGE 1 


;LINE NUMBER 


3ADD DEPTH OF SHAPE 
;BYTE 


3ZERO XCOUNT 

;BYTE IN Y REGISTER 
;LINE IN X REGISTER 
;GET LINE ADDRESS 


3;LOAD X WITH XCOUNT 

3GET SHAPE BYTE 

3;PLOT 

3;NEXT BYTE 

3NEXT SHAPE BYTE 

3;PLOT 

3INC XCOUNT BY NO. OF 
BYTES IN SHAPE WIDTH 

sNEXT LINE 


31S SHAPE DONE? 
;IF NO, CONTINUE DRAW 
;IF YES, STOP 


Bs 
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Pee eee eee eee eee eee errr ere reer eee ere rere rere reer reer rere eee ee ee eee 


6071: 03 00 03 59 SHAPE HEX 030003007D3F01407F 3F 
6074: 00 7D 3F 01 40 7F 3F 

HI 

LO 
507 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B BYTE =$6003 LINE =$6004 
DEPTH =$6005 XCOUNT =$6006 PGM =$6007 CLR1 =$601B 
CLR =$601F DRAW =$6041 SHAPE =$6071 HI =$607B 
LO =$613B GRAPHICS=$C050 MIXOFF =$C052 PAGEL =$C054 
HIRES  =$C057 


Program 3-8 illustrates the general principles of DRAW routines for shapes 
of any width. For example, here is a routine for a shape 3-bytes wide: 


DRAW LDY BYTE 
LDX LINE 
LDA HI,X 
STA HIGH 
LDA LO,x 
STA LOW 
LDX XCOUNT 
LDA SHAPE,X 
STA (LOW),Y 
INY 
LDA SHAPE+1,X 
STA (LOW),Y 
INY 
LDA SHAPE+2,X 
STA (LOW),Y 
INC XCOUNT 
INC XCOUNT 
INC XCOUNT 
INC LINE 
LDA LINE 
CMP DEPTH 
BLT DRAW 
RTS 


We now know how to display any shape anywhere on the hi-res screen using 
shape tables and line address tables. Following chapters will discuss how to 
move shapes around the screen using animation routines. 


First shape byte 
Plot at first screen byte 


Second shape byte 
Plot at second screen byte 


Third shape byte 
Plot at third screen byte 
Increment XCOUNT by shape width 


Vertical Animation 


There was a young man named Brown 

On whose brow Program 4-2 produced a frown, 
“T understand it all right 

But there’s been an oversight 

What goes up is not coming down.” 


Ci vpures animation is an illusion. Shapes do not move in a continuous, 
unbroken path but rather in fits and starts, bit by bit (literally!), or sometimes 
byte by byte. The illusion is created essentially by speed, in the same way that 
rapidly changing still pictures create the illusion of movement in movie films. We 
touched on this before in discussing why the speed of assembly language is 
essential to animation. But speed is not the only factor. The basic cycle for any 
animation routine is as follows: 


Draw —» Delay —» Erase —» Move to new position 


If the new position is close to the old one and if the process is fast enough, the 
illusion of continuous movement is created. The reason for the time delay is to 
ensure that the shape is on the screen longer than it is off; otherwise, excessive 
flicker will result. 


ERASING A SHAPE 


POR C eee meee meee eee eee ee ee eee sees eee eeeeeeeees 


Before we get to the actual vertical animation programs, we first have to 
discuss the problem of the shape erase. We could erase a shape by clearing the 
entire screen with our clear screen routine but obviously this would be inap- 
propriate if there are other shapes on the screen we want to retain. We could 
also just store zeros in the general shape area, but there is an easier and neater 
way. For this we have to introduce another assembly language instruction, EOR 
(Exclusive-OR). EOR compares a byte, bit by bit, with a byte in the Accumula- 
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tor. If either bit, but not both, is one, the result is one; otherwise, the result is 
zero. The result is stored in the Accumulator. 


Example: 
Accumulator L101 00711 
EOR byte Ot OrT0' 10 
Result in Accumulator Oe av Oro 


Let’s see how the EOR instruction can be used to erase a shape. Suppose we 
load the Accumulator with a shape byte from a particular screen location. Then 
if we EOR the Accumulator with the same shape byte and store the result at the 
same screen location, the shape will be erased. 


Content of screen 
location $NNNN 


Cee e ee ee eeeeeeneeeeres 


LDA $NNNN 00101101 (in Accumulator) #$2D 
EOR #$2D O04 Ode Ot 

Result 00000000 (in Accumulator) 

STA $NNNN #$00 


Pretty neat, eh? But wait, there’s more. We can use this same EOR routine not 
only to erase, but also to draw a shape. All that’s necessary is to have a zero 
stored at the screen location initially. 


Content of screen 
location $NNNN 


LDA $NNNN 0000000 0 (in Accumulator) #$00 
EOR #$2D O O50 1 10K 

Result 00101101 (in Accumulator) 

STA $NNNN #$2D 


This makes life a bit easier for beleaguered assembly language programmers 
(us), because now we can use a single routine to both draw and erase a shape. 
The shape is drawn if the screen location contains a zero, and erased if the 
screen location already contains the shape byte. Alternate calls to the EOR rou- 
tine will produce a draw-erase cycle. To recapitulate briefly: 


Ordinary draw routine LDA shape byte 
STA screen location 


Draw with EOR LDA screen location contents (zero) 
EOR shape byte 
STA same screen location 


Reem ee eee eee eee ee EEE EHH E HEHEHE E EEE E EEE E EEE EE OSES E HESS SHEE EE EEEE EEE EEE EEEEEEEEEE SEES EEEEEEEEEEEES 


Erase with EOR LDA screen location contents (shape byte ) 
EOR same shape byte 
STA same screen location 


TIME DELAYS 


POOR eee eRe e EOE EEE EEE EEE E ESTEE EEE EEEEEEEEEEES 


We now need a routine to introduce a time delay in our programs. For this 
we can take advantage of certain subroutines built into the Apple’s operating 
system (for details, see the Apple Reference Manual). These subroutines perform 
many functions, from ringing a bell to printing a character. The subroutine we’re 
interested in is at memory location $FCA8. When $FCA8 is accessed, a delay 
results, the length of which depends on the number in the Accumulator. For 
example, the following instructions: 


LDA #$40 
JSR $FCA8 (JSR means Jump to SubRoutine) 


will produce a delay of approximately 0.01 second. The larger the number in the 
Accumulator, the longer the delay. In most of our programs, we’re going to 
define the label WAIT as $FCA8 and reserve a memory location for the number 
to be loaded into the Accumulator; we'll call this DELAY. We then can load 
DELAY with a number: 


LDA #$40 
STA DELAY 


A delay is then produced by: 


LDA DELAY 
JSR WAIT 


This comes in handy if we want the same delay in several different routines. 
To see the effect of different delay times, we need change only the value in 
DELAY. For programs using different delays, we would LDA with the appropriate 
byte and do a JSR WAIT. 


VERTICAL ANIMATION— ONE SHAPE MOVING DOWN 


SOONER Reem e eee EEE TEE EEE ESET TEESE TEETH EE EEEES 


Let’s get now to our first vertical animation program. The concept of vertical 
animation is relatively simple—we draw a shape, delay, erase it, and redraw it 
either one line down if we’re moving down or one line up if we’re moving up. 
We then access the routine repeatedly to traverse the screen (we actually could 
move any number of lines at a time but a one-line move produces the smoothest 
results—we're going to use one-line moves for the programs in this chapter). 


Vertical Animation 


Bs 
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Our first program (Program 4-1) will move an old friend, the person shape, from 
the top of the screen to the bottom in a straight line. When it reaches the bot- 
tom, the shape will disappear only to reappear at the top for another screen 
traversal. This will continue ad infinitum until the program is stopped with 
CONTROL RESET. The program will be using EOR draw routines and also a few 
things we haven’t seen before, so let’s discuss some of the details. 

First of all, we’re going to use the JSR (Jump to SubRoutine) instruction 
rather extensively. JSR is equivalent to the GOSUB instruction in BASIC. All sub- 
routines called by JSR must end with RTS (ReTurn from Subroutine ) in the same 
way that BASIC subroutines must end with the RETURN instruction. 


JSR INITIAL ee ee 
. INITIAL 


RTS 


JSR INITIAL 


Although using subroutines does slow a program somewhat (it takes time for any 
jump instruction), the time lost in most programs is insignificant and is certainly 
overshadowed by the great advantage, especially for beginners, of providing 
greater clarity in designing and reading the program. The use of subroutines 
allows one to divide a program conveniently in two parts—the MAIN PROGRAM 
and SUBROUTINES. The MAIN PROGRAM gives us an overall view of the 
program’s organization, whereas the SUBROUTINES supply most of the details. In 
the program we're about to discuss, for example, one can look at the MAIN 
PROGRAM and take in, almost at a glance, what’s going on. 

Program 4-1 starts with the usual display and clear screen routines. In addi- 
tion, #$40 is chosen as the DELAY byte (lines 37 to 38). Let’s now look at the 
MAIN PROGRAM in some detail. 


START JSR INITIAL A call to the INITIAL subroutine sets the initial byte 
position, line number, and depth of the shape. 


START1 JSR DRAW _ The shape is drawn with an EOR routine. 


LDA DELAY 
JSR WAIT A time delay is introduced. 


LDA LINEA 

STA LINE Because the shape is drawn line-by-line starting from 
the top and working down, to erase the shape using the 
same EOR-draw routine, the starting line number for 
the erase has to be reset to its original value; e.g., 


POR e Rete eee H EER ERE e EEE HEE EEE EEE EEEE EHH EE EE EEE EEE EEE e Ee ee eeeeneeeees 


Reem eee eee eee eee eee HERE EEE EEE E EEE HEHEHE EEE EEEEEEEEEEEE THESES EEE EEHEH HEHEHE HEHEHE EEEEHEEE ESSE HEHE ESE EES 


LINEA is used as a repository for the original line number—unlike LINE, it is not 
changed by the DRAW subroutine. 


JSR DRAW _ This call to the DRAW subroutine now erases the shape since the 
screen locations already contain the shape bytes. 


INC DEPTH 

INC LINEA 

LDA LINEA 

STA LINE — Because we’re moving the shape down, we want the top of the 
shape to begin at a new line, one down from the previous position. 
To move down a line, we increment, as lines are counted 0 to 191, 
top to bottom. The new line number is stored in LINE and also in 
LINEA so that it can be recalled for the erase routine. Note that we 
do not do an INC LINE because LINE has been altered by the 
DRAW subroutine. DEPTH is also incremented so that the DRAW 
routine will draw the entire shape. 


CMP #$BB This compares the new line number in the Accumulator to the 
value #$BB to see if the shape has reached the bottom of the 
screen. If it has, we want to erase the last drawn shape and start 
over from the beginning, or at least do something other than 
allowing the shape to go beyond the screen border. If this 
happens, the shape may appear in unexpected locations and you 
will lose control of your program (you could always pull the plug 
at this point to show who’s boss, but let’s be more elegant). To 
see why we selected #$BB as the comparison byte, we should look 
at how the shape is drawn as it approaches south of the border. 


Vertical Animation 
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LINE NUMBER 

Decimal Hex 

185 #$B9 
186 


191 (bottom) 


The value we want to use in this comparison is the top or starting line of the 
shape (it doesn’t have to be; it’s just that we’re drawing the shape from top to 
bottom). Thus, the last shape we want to draw (and erase) starts at line 186 
(#$BA). If we start a shape at line 187 (#$BB), part of it will be off the screen. 


BGE START 

JMP START1 BGE (Branch if Greater or Equal) can be used by some 
assemblers in place of the normal BCS (Branch if Carry Set). 
Together with the CMP #$BB instruction, it says that if the 
number in the Accumulator (the new line number) is greater 
than or equal to #$BB, branch back to START to begin animation 
from the initial parameters, i.e., the top of the screen. This 
branch will be taken when the line number reaches #$BB. If the 
line number is less than #$BB, the branch will not be taken and 
the JMP instruction sends the program back to continue drawing 
from the last line number. 


The rule of thumb when using these instructions to test for the bottom of 
the screen is to subtract the shape depth from 193 (193 — 6 = 187 = #$BB). It 
really isn’t all that complicated once you understand the principles involved 
(right? ). 

Finally, note that the last JSR DRAW before this comparison is a shape erase. 
Thus, we are not left with a shape on the screen when we start again from the 
top of the screen. 

The INITIAL subroutine in this program is essentially self-explanatory. It is 
here we set the initial line number (0 for top of screen) and the screen byte 
position—I've chosen #$10 (decimal 16) just to get the shape away from the 
border. 

The DRAW subroutine should be familiar to you. We load Y with the byte 
position, X with the line number, use the HI and LO tables to get line addresses, 
and XCOUNT for accessing the shape table. We then use an EOR routine for 
both drawing and erasing. 


LDA (LOW),Y Load the Accumulator with the byte at the screen position 
determined by X and Y. 


eee eee eee eee eee eee eee eee eee eee eee eee eee errr cece errr errr reer eee eee eee reer ere eee rrr re rere ere rere errr errr eee 


LDA (LOW),Y ————->__ LOCATION CONTENTS ACCUMULATOR 


, 


Byte at location #$NNnn + Y 


EOR SHAPE,X EOR the Accumulator with a byte from the shape table (X is 
loaded from XCOUNT). 


STA (LOW),Y Store the result at the same screen position. 


STA (LOW),Y ———— __ LOCATION CONTENTS ACCUMULATOR 


#$NNnn + Y 


Because the screen initially is clear, when first accessed these instructions will 
draw. When accessed next, they will erase. 


DISPLAY SCREEN, HI-RES 
PAGE 1 
CLEAR SCREEN 


SET INITIAL LINE NUMBER, 
BYTE POSITION AND DEPTH 


RESET LINE 


NEXT LINE DOWN 
BOTTOM OF SCREEN? 


No Yes 


Vertical Animation 
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JPROGRAM 4-1 
:ASM 


1 *ONE SHAPE VERTICAL MOVING DOWN 
2 KkKKKKKKK KKK KK KK KKK KK KKK KKK 
3 *SHAPE IS 1 BYTE WIDE BY 6 BYTES DEEP 
4 KkKKKKKKKK KKK KKK KK KKK KKK KEK 
5 ORG $6000 
6000: 4C 09 60 6 UMP PGM 
7 XCOUNT DS 1 
8 BYTE bs 4 
9 LINE ps 
10 LINEA DS 1 
11 DEPTH DS 1 


12. DELAY DS 


13. GRAPHICS = $C050 
14. MIXOFF = $C052 
15 HIRES = $C057 
16 ~=PAGE1 = $C054 
17. ~—HIGH = $1B 
18  ~LOW = $1A 
19 WAIT = $FCA8 
6009: AD 50 CO 20 PGM LDA GRAPHICS _ ;HIRES,P.1 
600C: AD 52 CO 21 LDA MIXOFF 
600F: AD 57 CO 22 LDA HIRES 
6012: AD 54 CO 23 LDA PAGE1 
6015: A9 00 24 LDA #$00 ;CLEAR SCREEN 1 
6017: 85 1A 25 STA LOW 
6019: A9 20 26 LDA #$20 
601B: 85 1B 27 STA HIGH 
601D: AO 00 28 =CLR1 LDY #$00 
601F: A9 00 29 LDA #$00 
6021: 91 1A 30 CLR STA (LOW),Y 
6023: C8 31 INY 
6024: DO FB 32 BNE CLR 
6026: E6 1B 33 INC HIGH 
6028: A5 1B 34 LDA HIGH 
602A: C9 40 35 CMP #$40 
602C: 90 EF 36 BLT CLR1 
602E: AQ 40 37 LDA #$40 ;LOAD TIME DELAY 
6030: 8D 08 60 38 STA DELAY 


39 RoI MAIN PROGRAM tio deka 
6033: 20 5B 60 40 START JSR INITIAL sSETUP BYTE,LINE & DEPTH 


6036: 20 6F 60 41 START1 JSR DRAW ;DRAW SHAPE 

6039: AD 08 60 42 LDA DELAY ;DELAY 

603C: 20 A8 FC 43 JSR WAIT 

603F: AD 06 60 44 LDA LINEA sRESET LINE TO 

6042: 8D 05 60 45 STA LINE ORIGINAL LINE 

6045: 20 6F 60 46 JSR DRAW sERASE SHAPE 

6048: EE 07 60 47 INC DEPTH ;NEXT DEPTH 

604B: EE 06 60 48 INC LINEA & NEXT LINE 

604E: AD 06 60 49 LDA LINEA 

6051: 8D 05 60 50 STA LINE 

6054: C9 BB 51 CMP #$BB 31S LINE AT BOTTOM OF SCREEN? 
6056: BO DB 52 BGE START 31F YES, DRAW FROM INITIAL VALUES 
6058: 4C 36 60 53 JUMP START1 ;1F NO, DRAW NEXT LINE 


54 KkKKKKK KKK SUBROUTINES KkkKKKKKKK 
605B: AQ 10 55 INITIAL LDA #$10 
605D: 8D 04 60 56 STA BYTE 3SET STARTING BYTE 
6060: A9 00 57 LDA #$00 
6062: 8D 05 60 58 STA LINE 3SET STARTING LINE 


Soro rerrrrrrerrrrrrrrrrrrrrrr rrr rere errr reer ereerrreerrr ree reer rrr tre Vertical Animation 


6065: 8D 06 60 59 STA LINEA 

6068: 18 60 CLC 

6069: 69 06 61 ADC #$06 3ADD DEPTH OF SHAPE TO LINE 
606B: 8D 07 60 62 STA DEPTH 

606E: 60 63 RTS 

606F: AQ 00 64 DRAW LDA #$00 

6071: 8D 03 60 65 STA XCOUNT 3ZERO XCOUNT 

6074: AC 04 60 66  ODRAW1 LDY BYTE ;LOAD BYTE 

6077: AE 05 60 67 LDX LINE ;LOAD LINE 

607A: BD A3 60 68 LDA HI,X ;LOAD LINE ADDRESS INTO HIGH,LOW 
607D: 85 1B 69 STA HIGH 

607F: BD 63 61 70 LDA LO,X 

6082: 85 1A 71 STA LOW 

6084: AE 03 60 72 LDX XCOUNT ;LOAD X WITH XCOUNT 

6087: Bl 1A 73 LDA (LOW),Y ;GET BYTE FROM SCREEN 

6089: 5D 9D 60 74 EOR SHAPE,X 3EOR BYTE FROM SHAPE ADDRESS+X 
608C: 91 1A 75 STA (LOW),Y ;PLOT BYTE 

608E: EE 03 60 76 INC XCOUNT 

6091: EE 05 60 77 INC LINE sNEXT LINE 

6094: AD 05 60 78 LDA LINE 

6097: CD 07 60 79 CMP DEPTH sFINISH SHAPE? 

609A: 90 D8 80 BLT DRAW1 3IF NO, DRAW NEXT LINE 
609C: 60 81 RTS ;IF YES, NEXT DRAW CYCLE 


609D: 08 3E 5D 82 SHAPE HEX 083E5D1C1422 ;SHAPE TABLE 
60A0: 1C 14 22 


HI 
LO 


547 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B XCOUNT =$6003 BYTE =$6004 
LINE” =$6005 LINEA =$6006 DEPTH =$6007 DELAY =$6008 
PGM =$6009 CLR1 =$601D CLR =$6021 START =$6033 
START1 =$6036 INITIAL =$605B DRAW =$606F DRAW1 =$6074 
SHAPE  =$609D HI =$60A3 LO =$6163 GRAPHICS=$C050 
MIXOFF =$C052 PAGE1  =$C054 HIRES  =$C057 WAIT =$FCA8 


ONE SHAPE MOVING UP 


SOOO eRe meee eee ne eee eee E eee ee EEE eee eeEeeeEeeS 


Suppose now we want to move a shape up, from the bottom to the top of 
the screen (see Program 4-2). There are very few changes that have to be made. 
First, in the INITIAL subroutine, we set the starting line to #$8BA (186). The 
shape is 6 lines deep, so the first shape will be drawn from lines 186 to 191, just 
at the bottom border. Second, in the MAIN PROGRAM, we decrement (DEC) 
LINE and DEPTH instead of increment, because going up means lower line 
numbers. Then, to test for the top border, we check if LINE has reached zero: 


LDA LINEA 
STA LINE 
BEQ START 
JMP START1 


A CMP #$00 is not needed here because BEQ executes a branch if the result of a 
previous operation was zero. Thus, when LINE equals zero, the branch is taken 


Bs 


gs 
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and the shape begins another journey from the screen bottom. These instruc- 
tions actually stop (and erase) the shape at line 1. This is of little import in our 
programs, as a one-line difference at a screen border is hardly noticeable. 

Finally, the shape has been changed (easy to do just by changing bytes in the 
shape table) from a person to a sort of spaceship, as it’s a bit disquieting to see a 
person rising without any visible means of support. 


DISPLAY SCREEN, HI-RES 
PAGE 1 
CLEAR SCREEN 


SET INITIAL LINE NUMBER, 
BYTE POSITION AND DEPTH 


JPROGRAM 4-2 
: ASM 


6060: 4C 09 60 


WOONDNPWNMrHE 


No 


NEXT LINE UP 
TOP OF SCREEN? 


*ONE SHAPE VERTICAL MOVING UP 


RESET LINE 


Yes 


KRKKKKKEKKEKKKEEKKKEKEKEKKKKKE 


*SHAPE IS 1 BYTE WIDE BY 6 BYTES DEEP 


KEKKKKKEKKEKEKKKK KKK KKK 


XCOUNT 
BYTE 
LINE 
LINEA 
DEPTH 
DELAY 
GRAPHICS 
MI XOFF 
HIRES 


ORG $6000 
JMP PGM 
DS? eal 

DS <1 

DS. A 

DS. 2 

DS: = 

DS 1 

= $C050 
Se $C052 


Pee eee rrr rrr rere reer reer rere rere rere eee reer eee eer ree eee errr reer Vertical Animation 


6009: 
600C: 
600F : 
6012: 
6015: 
6017: 
6019: 
601B: 
601D: 
601F: 
6021: 
6023: 
6024: 
6026: 
6028: 
602A: 
602C: 
602E: 
6030: 


6033: 
6036: 
6039: 
603C: 
603F: 
6042: 
6045: 
6048: 
604B: 
604E: 
6051: 
6054: 
6056: 


6059: 
605B: 
605E: 
6060: 
6063: 
6066: 
6067: 
6069: 
606C: 
606D: 
606F : 
6072: 
6075: 
6078: 
607B: 
607D: 
6080: 
6082: 
6085: 


co 
co 
co 
CO 


PAGE1 
HIGH 
LOW 
WAIT 
PGM 


CLR1 
CLR 


STA 


$C054 
$1B 

$1A 
$FCA8 
GRAPHICS 
MIXOFF 
HIRES 
PAGE1 
#$00 
LOW 
#$20 
HIGH 
#$00 
#$00 
(LOW) ,Y 


CLR 
HIGH 
HIGH 
#$40 
CLR1 
#$40 
DELAY 


sHIRES,P.1 


sCLEAR SCREEN 1 


;LOAD TIME DELAY 


KkKKK KK KKK MAIN PROGRAM KkKKKKKKKK 


START 
START1 


JSR 
JSR 
LDA 
JSR 
LDA 
STA 
JSR 
DEC 
DEC 
LDA 
STA 
BEQ 
MP 


INITIAL 
DRAW 
DELAY 
WAIT 
LINEA 
LINE 
DRAW 
DEPTH 
LINEA 
LINEA 
LINE 
START 
START1 


3SETUP BYTE,LINE & DEPTH 
;DRAW SHAPE 
;DELAY 47 


sRESET LINE TO 
ORIGINAL LINE 
sERASE SHAPE 
sNEXT DEPTH 
& NEXT LINE 


31S LINE AT TOP OF SCREEN? 
31F YES, DRAW FROM INITIAL VALUES 
3IF NO, DRAW NEXT LINE 


Kkkk kk KKKK SUBROUTINES KkKKKKKKKK 


INITIAL LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
LDA 
STA 
LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 


DRAW 
DRAW1 


#$10 
BYTE 
#$BA 
LINE 
LINEA 


#$06 
DEPTH 


#$00 
XCOUNT 
BYTE 
LINE 
HI,X 
HIGH 
LO,X 
LOW 
XCOUNT 
(LOW) ,Y 


3SET STARTING BYTE 
3SET STARTING LINE 


;ADD DEPTH OF SHAPE TO LINE 


3;ZERO XCOUNT 

;LOAD BYTE 

;LOAD LINE 

;LOAD LINE ADDRESS INTO HIGH,LOW 


;LOAD X WITH XCOUNT 
;GET BYTE FROM SCREEN 


Bs 


6087: 5D 9B 60 73 EOR SHAPE,X 3EOR BYTE FROM SHAPE ADDRESS+X 
608A: 91 1A 74 STA (LOW),Y 3PLOT BYTE 

608C: EE 03 60 75 INC XCOUNT 

608F: EE 05 60 76 INC LINE sNEXT LINE 

6092: AD 05 60 77 LDA LINE 

6095: CD 07 60 78 CMP DEPTH 3FINISH SHAPE? 

6098: 90 D8 79 BLT DRAW1 3IF NO, DRAW NEXT LINE 

609A: 60 80 RTS 31F YES, NEXT DRAW CYCLE 


609B: 08 1C 22 81 SHAPE HEX 081C223E227F ;SHAPE TABLE 
609E: 3E 22 7F 


545 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B XCOUNT =$6003 BYTE =$6004 

LINE =$6005 LINEA  =$6006 DEPTH =$6007 DELAY  =$6008 

PGM =$6009 CLR1 =$601D CLR =$6021 START  =$6033 

START1 =$6036 INITIAL =$6059 DRAW =$606D DRAW1 =$6072 

SHAPE  =$609B HI =$60A1 LO =$6161 GRAPHICS=$C050 

MIXOFF =$C052 PAGE1 =$C054 HIRES  =$C057 WAIT =$FCA8 
DRAW-DRAW ROUTINES 
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We've seen, in the previous two programs, how to erase a shape using the 
EOR instruction. Let’s call this type of routine DRAW-ERASE. There is yet 
another way to erase a shape and that is by drawing over it, a process that has 
advantages as well as disadvantages. We'll call this type of routine DRAW-DRAW. 
The salient point here is that when a byte is sent to a screen position, the byte (if 
any) already present at that position is replaced by the new byte. 


Example 


Contents of screen location $NNNN 


OeeU UCSC SOCIO 


LDA #$23 
STA $NNNN #$23 


Let’s adapt the DRAW-DRAW routine to Program 4-1, moving a shape down 
the screen (see Program 4-3). The shape is drawn with an ordinary draw (LDA 
shape byte, STA screen location) instead of the EOR routine. The shape is moved 
down one line at a time without any erase routine. Let’s follow the shape moving 
down two lines. 
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NEXT LINE DOWN | NEXT LINE DOWN 


As you can see, each shape byte, as it moves down one line, erases the byte 
that was there before, thus preserving the shape. As you can also see, something’s 
not quite right. We’re always left with the top byte on the screen, because 
nothing moves into those positions. We solve this problem by providing the 
shape with a border of #$00 at the top. Now see what happens. 


LINE NEXT LINE DOWN | NEXT LINE DOWN 


#$00 


OInI OTA 


oS 


The border is always placed behind the direction of movement and serves to 
erase the first line of the shape. To introduce the border into the person shape, 
we add #$00 at the beginning of the shape table. Thus, the person-shape table 
with a trailing border is 00083E5D1C1422 (compare to Program 4-1). We must 
also remember to change the shape depth from 6 to 7 in the INITIAL subroutine. 
A general rule is that the border size has to equal the maximum shape move. 
Thus, if we’re moving a shape two lines at a time, the trailing border would be 
two #$00’s. 

There is one further complication we have to deal with in programs that use 
DRAW-DRAW routines. For example, in the program we’re discussing, when the 
shape reaches the bottom of the screen, it will stop and then appear again from 
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the top. Then, because we have no erase instructions, the shape at the bottom 
stays on the screen. We have to introduce an erase routine to erase the last shape 
when it reaches a border. For this, we can use our usual EOR instructions in a 
routine called ERASE. Thus, in the MAIN PROGRAM of Program 4-3, 


CMP #$BA #$BA is used instead of #$BB as in Program 4-1 because this shape 
is 7 lines deep due to the border (193 — 7 = 186 = #$BA). 


BGE ERASE 


JMP START1 Now the comparison tells us if the shape is at the screen bottom, 
go to the ERASE routine, which erases the shape and then sends 
the program back to START to continue the animation from the 
initial parameters, i.e., top of the screen. 


DISPLAY SCREEN, HI-RES 
PAGE 1 


CLEAR SCREEN 


SET INITIAL LINE NUMBER, 
BYTE POSITION AND DEPTH 


NEXT LINE DOWN 
BOTTOM OF SCREEN? 


JPROGRAM 4-3 
:ASM 
*ONE SHAPE VERTICAL MOVING DOWN; DRAW-DRAW CYCLE 


KHKKKKKKIKKE KKK KEKKKKEKEKEKEREKEEE 


*SHAPE IS 1 BYTE WIDE BY 7 BYTES DEEP 
KKK KIKKKKKKKKEKEKKEKREKRKEKERKKEKEK 
ORG $6000 
JUMP = PGM 
XCOUNT DS 1 
BYTE DS 
LINE DS 1 
10 LINEA DS 1 
11 ~~ DEPTH DS. 1 
12. DELAY DS 1 


6000: 4C 09 60 


WOONDNOPWwWNHrHE 


13. GRAPHICS = $C050 
14 MIXOFF = $C052 
15 HIRES = $C057 
16 = PAGE1 = $C054 


OPO eerrrerrerrrrereeeeeeerre reece eee eee eee eee eee eee Vertical Animation 


6009: 
600C: 
600F : 
6012: 
6015: 
6017: 
6019: 
601B: 
601D: 
601F: 
6021: 
6023: 
6024: 
6026: 
6028: 
602A: 
602C: 
602E: 
6030: 


6033: 
6036: 
6039: 
603C: 
603F : 
6042: 
6045: 
6048: 
604B: 
604D: 
604F : 


6052: 
6054: 
6057: 
6059: 
605C: 
605F: 
6060: 
6062: 
6065: 
6066: 
6068: 
606B: 
606E: 
6071: 
6074: 
6076: 
6079: 
607B: 
607E: 
6081: 
6083: 
6086: 
6089: 
608C: 
608F : 
6091: 


co 
CO 
co 
co 


HIGH = 
LOW = 
WAIT = 
PGM LDA 


CLR1 LDY 
CLR STA 


STA 


kkk kkkkKKK MATN PROGRAM kkk kkk kKKK 


START JSR 
START1 JSR 
LDA 
JSR 
INC 
INC 
LDA 
STA 
CMP 
BGE 
JMP 


$1B 

$1A 

$FCA8 

GRAPHICS — ;HIRES,P.1 
MIXOFF 

HIRES 

PAGE1 

#$00 ;CLEAR SCREEN 1 
LOW 

#$20 

HIGH 

#$00 

#$00 

(LOW) ,Y 


CLR 

HIGH 

HIGH 

#$40 

CLR1 

#$40 ;LOAD TIME DELAY 
DELAY 


INITIAL ;SETUP BYTE,LINE & DEPTH 


akkeKKKKKKK SUBROUTINES *****e RRR 


INITIAL LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
DRAW LDA 
STA 
DRAW1 LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
STA 
INC 
INC 
LDA 
CMP 
BLT 
RTS 


DRAW ;DRAW SHAPE 

DELAY ;DELAY 

WAIT 

DEPTH ;NEXT DEPTH 

LINEA & NEXT LINE 

LINEA 

LINE 

#$BA ;IS LINE AT BOTTOM OF SCREEN? 
ERASE ;IF YES, ERASE SHAPE, START OVER 
START1 3IF NO, DRAW NEXT LINE 

#$10 

BYTE sSET STARTING BYTE 

#$00 

LINE 3SET STARTING LINE 

LINEA 

#$07 3ADD DEPTH OF SHAPE TO LINE 
DEPTH 

#$00 

XCOUNT ;ZERO XCOUNT 

BYTE ;LOAD BYTE 

LINE ;LOAD LINE 

HI,X ;LOAD LINE ADDRESS INTO HIGH,LOW 
HIGH 

LO,X 

LOW 


XCOUNT ;LOAD X WITH XCOUNT 


SHAPE,X  ;LOAD SHAPE BYTE 

(LOW),Y | ;PLOT BYTE 

XCOUNT 

LINE ;NEXT LINE 

LINE 

DEPTH FINISH SHAPE? 

DRAW1 IF NO, DRAW NEXT LINE 
IF YES, NEXT DRAW CYCLE 
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6092: CE 05 60 78 ERASE DEC LINE 


6095: A9 00 79 LDA #$00 ;ZERO XCOUNT 
6097: 8D 03 60 80 STA XCOUNT 

609A: AC 04 60 81 ERASEl LDY BYTE 

609D: AE 05 60 82 LDX LINE 

60A0: BD CC 60 83 LDA HI,X 

60A3: 85 1B 84 STA HIGH 

60A5: BD 8C 61 85 LDA LO,xX 

60A8: 85 1A 86 STA LOW 

60AA: AE 03 60 87 LDX XCOUNT 

60AD: Bl 1A 88 LDA (LOW),Y 

60AF: 5D C5 60 89 EOR SHAPE,X 

60B2: 91 1A 90 STA (LOW),Y  ;ERASE 
60B4: EE 03 60 91 INC XCOUNT 

60B7: EE 05 60 92 INC LINE 

60BA: AD 05 60 93 LDA LINE 

60BD: CD 07 60 94 CMP DEPTH 

60C0: 90 D8 95 BLT ERASE1 

60C2: 4C 33 60 96 UMP START 


6005: 00 08 3E 97 SHAPE HEX 00083E5D1C1422 ;SHAPE TABLE 
60C8: 5D 1C 14 22 


588 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B XCOUNT =$6003 BYTE =$6004 
LINE =$6005 LINEA =$6006 DEPTH =$6007 DELAY =$6008 
PGM =$6009 CLR1 =$601D CLR =$6021 START  =$6033 
START1 =$6036 INITIAL =$6052 DRAW =$6066 DRAW1 =$606B 
ERASE  =$6092 ERASE1 =$609A SHAPE =$60C5 HI =$60CC 
LO =$618C GRAPHICS=$C050 MIXOFF =$C052 PAGEl  =$C054 
HIRES  =$C057 WAIT =$FCA8 


We mentioned before that DRAW-DRAW routines have certain advantages 
and disadvantages. As there is no erase cycle as such, shapes animated by DRAW- 
DRAW move faster and with essentially no flicker. (It should be pointed out that 
“flicker” is a subjective term and depends to some extent on the image retention 
characteristics of the monitor or TV you're using—long retention times minim- 
ize flicker, whereas short times emphasize it, and retention times vary greatly 
among different brands of display screens.) On the other hand, DRAW-DRAW 
requires two routines, one to draw and one to erase the last shape (unless, of 
course, a shape is to stay on the screen). Also, collision detection is difficult with 
DRAW-DRAW routines (but only with horizontally moving shapes as we'll see in 
Chapter 7 ). 

In addition, the speed advantage of DRAW-DRAW, at least in simple pro- 
grams, is more theoretical than practical. If you compare Programs 4-1 and 4-3, 
you'll see that the shape traverses the screen at about the same speed in both 
cases. This is because the determining factor is the time delay, which is #$40 in 
both programs. So while the speed of DRAW-DRAW is greater than DRAW- 
ERASE, the speed differential is much less than the time delay. The speed advan- 
tage of DRAW-DRAW becomes important only in programs with larger and more 
complicated shapes where drawing and erasing the shape takes up an apprecia- 
ble amount of time. It should also be noted that a time delay in DRAW-DRAW 
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routines is not necessary to reduce flicker by ensuring that the shape is on the 
screen longer than it is off because the shape is not erased. However, delays are 
still generally required to slow a program down to a reasonable pace. 

One further drawback of DRAW-DRAW is that it is inappropriate for drawing 
over backgrounds—this will be discussed in more detail in Chapter 14. 

The decision whether to use DRAW-DRAW or DRAW-ERASE routines 
depends on the particular requirements of the program. If the shape is not 
involved in collision detection, if you’re not drawing over a background, and if 
more speed and the absence of flicker are desirable, use DRAW-DRAW. If speed 
and flicker are not problems and collision detection (for shapes moving horizon- 
tally) is required, use DRAW-ERASE. The final game program uses DRAW-ERASE 
routines, mostly because it makes the program easier to write and read, requir- 
ing only one draw routine, and speed and flicker are not problems. This should 
not be construed in any way as relegating DRAW-DRAW routines to second-class 
status. They are quite useful for smooth and rapid animation and should be kept 
in mind for your own programs, and indeed for the game program itself; in fact 
the reader may find it a useful and instructive exercise to modify parts of the 
final program to DRAW-DRAW. With this in mind, I’ve included, in later chap- 
ters, some routines in both DRAW-ERASE and DRAW-DRAW modes. There will 
be more on program modifications in the last chapter. 


Vertical Animation 


Bs 


Horizontal Movement and 
Internal Animation 


Moving a shape horizontal 

Can cause problems periodontal. 
The frustrations underneath 
Lead to gnashing of teeth 

Side to side and back to frontal. 
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‘<4 MA vine a shape horizontally across the hi-res screen involves the same 
basic animation principles as vertical movement, i.e., DRAW-DELAY-ERASE- 
MOVE-DRAW, but a certain complication arises that will become immediately 
apparent upon examining the following diagram. 


Screen Byte 
1 2 


12 48 12 4/1 2 4 8 1 2 4] Shape Byte 
Plot #$01 


Next plot [_JeT | T T TT TTT TTT 7 #802 
Next plot [_[ Te] [T T TT T TT T TT 7) #804 
Nextplot [_[ T Jet J | T T TT T TT 7) #s08 
Next plot [_[ [TT Tel T TT TTT TT 7 #s10 
Next plot [_[ [| [ [| Tet [T T TT TT TJ #s20 
Next plot [_] [ [ [ T Tel T TT TTT) #s40 


Next screen byte [_[ [ [ T 1 [ Tel T J T T TJ #s01 
Next plot [_[ ] T T 1 TT Tet | T TT] #so2 


etc. 
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THE SEVEN PRESHIFTED SHAPES 
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Here the shape is a single dot, moving left to right one bit position at a time 
(we can move the shape any number of bits at a time, but a one-bit move pro- 
duces the smoothest animation). Obviously what’s happening is that every time 
we move the shape over one bit, the shape byte changes. After moving seven bit 
positions (one screen byte), the same series of shape bytes is plotted, but now in 
the next screen byte. Thus, for each shape to be moved horizontally, we need 
seven different shape bytes (or shape tables in the case of larger shapes). Shapes 
plotted in this manner are called preshifted shapes. Note that movement results 
from plotting the different shape bytes and not by changing screen byte positions 
(except at the screen byte boundaries). 

Actually, the example just shown is a special case (one dot at the leftmost 
position). Let’s look at a more general example. 

Screen Byte 


1 2 3 


124812 4/1 24 8 1 2 4/1 2 4 8 1 2 4] Shape Table 
Plot 03 00 


Next plot (Telel TTT trrrrrrrrrrrrry 0 oo 
Next plot (TJeTe] TT TTTITITIIIIT IT 0c 0 
Next pot (TT Tele TT 1TTTTITIITIT rr 1s 0 
Next pot (TT Teel TTT TTT TITrrrrr 30 0 
Next plot (TT TT Teel TIT ITtTTIrrrry 6 0 
Next plot TT TTT Terer tT TTT rrrrrrry 40 ot 


Next screen byte (TTT 1T11IererttTIrt rr rrr 3 oo 
Next plot (TT T1111 Teter tTtrrrrrryy os oo 
Next plot CTT TT TTT eer ttrrrrrrry oc oo 
Next plot (TT TT1TTTTTIe~@rtrtirqtrriyy is 0 
Next plot CITT TTTTTIT Ise rttrrrrr 3 0 
Next plot CITT TTTTTITTierertttttyy 6 oo 
Next plot CITT TTT TTT ierer tt 40 ot 


Here we’re moving a two-dot shape left to right one bit position at a time. 
Again, seven different shape tables are required. We also see that the seventh 
shape is partly in one screen byte and partly in the next. Therefore, in construct- 
ing our shape tables, we have to include an extra screen byte in the direction of 
movement (for one-bit moves). Thus, for a shape one screen byte wide or less, 
as in the above example, the shape table will cover two screen bytes, and a two 
screen byte wide shape will require a shape table covering three screen bytes, 
and so on. This is a general rule, applicable in all cases except the special case of 
the one-dot shape in the first example. 


Bs 
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To summarize, horizontal movement for one-bit moves requires: 


1. Seven shape tables for each shape. 


2. Shape tables with an extra screen byte in the direction of movement. 


Obviously a higher level of complication has been introduced compared to 
vertical animation, but that’s the way it is. There’s no way to get around it unless 
we want to move a shape just one screen byte at a time. In some cases this may 
be satisfactory, but usually the large distances involved produce an unacceptably 
jumpy animation. 

Let’s now look at some actual shape tables we're going to use in our game 
program. The following diagrams illustrate the seven shape tables for a two- 


Shape Number 
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screen-byte-wide airplane that’s going to move horizontally across the screen, 
left to right, one bit position at a time (the tables are labelled 0 to 6 instead of 1 
to 7, because they will be referred to by these numbers in the program to facili- 
tate routines that access them). 

The trick to incorporating these shapes into a program is to direct each of 
the seven shapes to its proper location. The following program (5-1) illustrates 
one approach to this problem. The program moves the plane shape across the 
screen from left to right. When the shape reaches the right border, it disappears 
and then reappears at the left border for another screen journey ad infinitum. 
Thus, we’re also going to discuss in this program tests for the vertical ends of 
screens. Pay attention to Program 5-1 because we’re going to use its routines in 
our final game program. 


TEMP AND SHAPE ADDRESS TABLES 


POOR RHEE ERE TEE EEE THEE EEE E TEESE SEE EEE EEE EEEES 


A programming technique I generally strive for is to minimize the number of 
drawing routines as much as possible. This produces a more compact program, 
easier to write and understand. Program 5-1 has only a single draw routine for all 
seven preshifted shapes, and both draws and erases using the EOR instruction. 

One way to use a single draw routine accessing seven different shape tables 
is to store the shape bytes temporarily in an area of memory we'll call TEMP 
(aren’t we clever with our labels), and use TEMP instead of the shape tables in 
the draw routine. To draw any of the seven shapes, we load TEMP with the 
appropriate shape bytes and access the draw routine. Another advantage in using 
TEMP is that for the shape erase, TEMP doesn’t have to be reloaded because it 
already contains the appropriate shape bytes, i.e., 


SHAPE 1 IN TEMP eae & 
DRAW 
SHAPE 2 IN TEMP 


To load the shape bytes into TEMP, the program has to know where in 
memory the shape tables are located. To do this, we construct a shape address 
table and let’s label it SHPADR (more clever labelling). This table will store the 
beginning memory locations of each of the seven shape tables. For example, in 
Program 5-1, the SHAPE1 table begins at location $60F5, SHAPE2 at $6104, 
SHAPE3 at $6113, and so on. The SHPADR table will look like this: 


SHPADR_ F5 (SHAPE1) 
60 
04 (SHAPE2) 
61 
13 (SHAPES) 
61 
etc. 


Shape address tables contain 14 bytes, 2 for each address of the 7 shape 
tables (note that the shape table addresses are stored low byte first). Now we 
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can access each shape table by referring only to SHPADR—this allows us to use a 
single routine for loading all the shape tables into TEMP. SHPADR and 
SHPADR+1 will give us the address of SHAPE1, SHPADR+2 and SHPADR+3 will 
give us the address of SHAPE2, SHPADR+4 and SHPADR+5 will give us the 
address of SHAPE3, and so on. More specifics about this technique will be dis- 
cussed below. 

For now we have to discuss how the SHPADR table is constructed. This 
depends on the type of assembler you're using. Full-feature assemblers support 
instructions that allow the assembler to construct a shape address table directly 
from within the program. This is illustrated in Program 5-1. Look at the SHPADR 
table starting at line 22. The instruction DFB #<SHAPE1 loads the low byte of 
the SHAPE1 table; DFB #>SHAPE1 loads the high byte (the DOS Tool Kit 
assembler does this backwards — #> for the low byte and #< for the high byte— 
the ORCA/M assembler uses the instruction DC A ‘shape table’—a good reason 
to read your assembler’s instructions! ). The entire SHPADR table is constructed 
by the assembler using these DFB instructions for all seven shape tables. If your 
assembler doesn’t have this capability, you have a problem, but one that is not 
insurmountable, merely inconvenient. In this situation, the problem is you (and 
the assembler) don’t know the shape table memory addresses until after the 
program is assembled, because assemblers simply start at the ORG and then fill 
up memory sequentially. The solution in this case is to assemble the program 
without a SHPADR table, write down the memory addresses of the shape tables, 
and use the edit feature of the assembler to add the SHPADR table at the end of 
the program. It doesn’t make any difference where in the program the SHPADR 
table is located, as it is accessed by reference to its label and not to a specific 
memory address. 

Now that we’ve constructed the SHPADR table, let’s see how it’s used to 
load TEMP with shape bytes. First we have to reserve an area of memory for 
TEMP. To do this we have to know the total number of bytes in each shape table. 
The plane shape is 2 screen bytes wide by 5 lines deep. Following the general 
rule discussed before, the shape table will cover 3 screen bytes. Thus, each shape 
table will contain 15 bytes (3 X 5). Space for TEMP then is reserved by the 
instruction TEMP DS 15 (line 12). 

Before we load TEMP with shape bytes, we have to specify which of the 
seven shape tables we’re going to use. Let’s start the screen traversal at the left 
border with SHAPE1. In the MAIN PROGRAM section of Program 5-1, the shape 
number is loaded into a reserved memory location I’ve labeled SHPNO. For 
reasons that will soon become clear, SHAPE1 is selected by loading SHPNO with 
0 (lines 57 and 58). The next line sends the program to the LOADSHP 
subroutine— it is here TEMP is loaded with the shape bytes. First, the Accumula- 
tor is loaded with the value in SHPNO (LDA SHPNO, line 83). At this point, the 
value is 0. The next instruction, ASL, is a mnemonic for Arithmetic Shift Left (if 
the contents of the Accumulator are to be shifted, some assemblers require an A 
as the operand—the BIG MAC does not). What this does is move each bit in the 
Accumulator one position to the left —the result is to multiply the number in the 
Accumulator by 2, i.e., 
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The result of the ASL instruction is stored in the Accumulator. Because the 
Accumulator contained 0, the result is still 0. The next instruction (TAX— 
Transfer Accumulator to X-Register) does what it says—the number in the 
Accumulator is transferred to the X register. X now contains 0. Now the instruc- 
tion LDA SHPADR,X loads the Accumulator with the byte found at address 
SHPADR + X; because X = 0, A is loaded with the value #$F5, the byte at loca- 
tion SHPADR. This byte is stored in a zero page location, LOW or $1A. The 
Accumulator is then loaded with the next byte in the SHPADR table, #$60, by the 
instruction LDA SHPADR+1,X. This byte is stored in another zero page location, 
HIGH or $1B. LOW and HIGH now contain the low byte and high byte respec- 
tively, of the address of SHAPE1 ($60F5 ). This completes the process of selecting 
which shape table is to be loaded into TEMP. The next step is to load TEMP with 
the shape bytes. 

The Y register is loaded with 0 (line 90). The next instruction on line 91 
(LDA(LOW),Y) is one we’ve seen before—indirect indexing. It says load the 
Accumulator with the byte to be found at a memory address calculated as 
follows—get the low byte of the address from LOW, the high byte from HIGH, 
and add the contents of the Y register. The byte found at this address is then 
loaded into the Accumulator. 


LDA (LOW), Y ————>|_ LOCATION CONTENTS ACCUMULATOR 


BYTE IN $60F5 (#$02) 


The Accumulator now contains the first byte of the SHAPE1 table. The next 
instruction, STA TEMP.Y stores this byte in the first position of TEMP. The Y 
register is then incremented by one (INY) and, if it is less than the number of 
bytes in the shape table (15 or #$0F), CPY #$0F (compare Y to #$0F) and BLT 
(Branch if Less Than) LOADSHP1 sends the program back to LDA (LOW),Y 
(line 91) to load the second byte of SHAPE1 into the second position of TEMP, 
i.e., 


$60F5 +0; 1st byte in SHAPE1 loaded into 1st position of TEMP 
$60F5 + 1; 2nd byte in SHAPE1 loaded into 2nd position of TEMP 
$60F5 + 2; 3rd byte in SHAPE1 loaded into 3rd position of TEMP 


$60F5 + 14; 15th (last) byte in SHAPE1 loaded into last position of TEMP 
$60F5 + 15; stop and return to MAIN PROGRAM 


The shape in TEMP is then drawn and erased with the EOR routine we've 
seen before, except TEMP instead of a shape table is accessed to obtain the 
shape bytes. We'll discuss the draw routine in more detail below. 

Now we would like to draw the next shape, SHAPE2. To do this we incre- 
ment SHPNO by one (line 64) so that SHPNO now contains the value 1. The 
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LOADSHP subroutine (line 83) multiplies this by 2 (result = 2), and the result 
is then placed in the X register (line 85). The instruction LDA SHPADR,X (line 
86) now loads the Accumulator with the third byte of the SHPADR table 
(SHPADR + 2), which is the low byte of the address of SHAPE2 (#$04). This 
byte is stored in LOW. LDA SHPADR+1,X loads the Accumulator with the fourth 
byte of SHPADR, which is the high byte of the address of SHAPE2 (#$61 ). This 
byte is stored in HIGH. Thus, LOW and HIGH now contain the low and high 
bytes, respectively, of the address of SHAPE2. The subsequent instructions load 
the bytes from SHAPE2 into TEMP in preparation for drawing and erasing. In the 
same way, SHAPE3 is selected by loading SHPNO with 2, SHAPE4 by loading 
SHPNO with 3, and so on, i.e., 


g 
= 
o 
> 
& 
» 


LDA SHPADR,X LDA SHPADR+ 1,X SHAPE TABLE 


See eeeeees  —=«_sw eee —«-_— ee ete e ete e eee eee eres = = eH EEE EEE E EEE EEE EEE EEEe «= = —- HERES ESE HEHE EEE ES 


0 0 0 SHPADR + 0 SHPADR + 1 1 
1 2 2 SHPADR + 2 SHPADR + 3 2 
2 a a SHPADR + 4 SHPADR + 5 3 
3 6 6 SHPADR + 6 SHPADR + 7 4 
4 8 8 SHPADR + 8 SHPADR + 9 5 
5 10 10 SHPADR + 10 SHPADR + 11 6 
6 12 12 SHPADR + 12 SHPADR + 13 7 


ACCESSING SEQUENTIAL SHAPES 
AND TESTING FOR END OF SCREEN 


Preece Ue OC CSO OS Ca) 


Let’s look at the MAIN PROGRAM section of Program 5-1. The first instruc- 
tion accesses the INITIAL subroutine, which sets the initial screen byte and line 
(0 in both cases) and also specifies the shape depth. Because we want to start 
with SHAPE1, SHPNO is loaded with 0. We then load TEMP, draw, delay, and 
erase. The erase is accomplished by the DRAW routine itself because we're using 
the EOR (DRAW-ERASE) technique discussed in previous chapters. Note that 
TEMP already contains the bytes of the shape we want to erase and so TEMP 
does not have to be reloaded with shape bytes for the erase routine. 

We're now ready to draw and erase SHAPE2. To do this we first load SHPNO 
with 1 by INC SHPNO. The next instructions (LDA SHPNO, CMP #$07, BLT 
START2) say if the value in SHPNO is less than 7, continue the program at 
START2,; i.e., load TEMP, draw, delay, erase. SHPNO is incremented again for the 
next shape and so on until SHPNO contains the value 7. At this point, we've 
plotted the seven shapes (0 to 6 in SHPNO) in the first screen byte. 

We now want to start over with SHAPE1 but at the next screen byte. 
Because SHPNO contains the value 7, the branch BLT START2 (line 67) is not 
taken and the program skips to the next line (INC BYTE), which increments 
BYTE by 1. The DRAW routine will now draw in the next screen byte. Before we 
draw, however, we have to test to see if the shape has reached the right end of 
the screen because we can’t allow the shape to go beyond the screen bound- 
aries. To do this, we load the Accumulator with the value in BYTE and compare 
it to the value #$26 (decimal 38). If the value is less than #$26, the branch in 
line 71 (BLT START1 ) is taken and the program continues with all seven shapes 


POOP eee EUCEOOSUCCCOCOCCCCOOOCOCOCOOO COCO CeO r eee ere ree eee eee eee eee eee eee 


POOR meee meee eee meee ee EEO EOE EEO EE EOE S OEE EEEE SESE REESE EEE EEE SEES SEEDS EEE EEEE EEE EEEEES 


drawn in the next screen byte starting with SHAPE1. This continues until the 
value in BYTE is #$26, at which point the branch is not taken and the program 
skips to line 72 (JMP START), which starts the program from the beginning; i.e., 
the shape now begins its screen traversal in the first (leftmost) screen byte. 
Because we always follow a draw with an erase, the last shape at the right border 
is not left on the screen when the shape begins its new journey on the left. 

The reason for choosing #$26 for the end of screen comparison warrants 
some discussion, because it might seem at first glance that we should use #$27 
(decimal 39) for the comparison since #$27 is in fact the last screen byte 
(remember screen bytes are numbered 0 to 39 or #$00 to #$27, left to right). 
The reason for choosing #$26 becomes apparent when we examine our shape as 
it approaches the right border. 


Screen Byte 


End of screen 


Here we see the first two shapes drawn starting at screen byte #$25. It’s obvious 
that once we get past SHAPE1, the other shapes extend into byte #$27, the last 
screen byte, as the shape table is 3 bytes wide. If we start at byte #$26, SHAPE2 
to SHAPE7 will extend beyond byte #$27, i.e., beyond the screen border. So once 
the value for BYTE reaches #$26, we want to start over from the left screen 
position. 

This discussion emphasizes the importance of examining a program in great 
detail before choosing numbers or instructions that seem right. The best way to 
debug a program is to get it right from the start, admittedly an ideal seldom 
realized. But if you make prior examination of details a habit, you will save your- 
self many headaches later on. 

Finally, the DRAW routine in Program 5-1 is essentially the same as ones 
we've seen in previous chapters. It is a DRAW-ERASE type of routine, using EOR 
both to draw and erase the shape. However, instead of accessing a shape table, 
TEMP is accessed to obtain the shape bytes. Also, at the end of the routine, LINE 
is reset to its starting value (from LINEA) in preparation for the next cycle. 
(Remember that LINE, but not LINEA, is changed in the DRAW routine and so 
must be reset for the erase cycle because we want to start drawing each shape 
on the same line—otherwise, it wouldn’t be horizontal movement. ) 
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LOAD SHAPE ADDRESSES 
INTO SHPADR 
DISPLAY AND 
CLEAR SCREEN 


SET INITIAL LINE NUMBER, 
BYTE POSITION AND DEPTH 


FIRST SHAPE 
LOAD INTO TEMP 


NEXT SHAPE 
ALL 7 SHAPES? 
Yes 


NEXT SCREEN BYTE 
END OF SCREEN? 


JPROGRAM 5-1 
: ASM 


1 *1 SHAPE HORIZONTAL* 

2 *2 BYTES WIDE, 5 LINES DEEP 
3 ORG $6000 

6000: 4C 27 60 4 JMP PGM 

5 LINE DS 5 rl 

6 LINEA Ds. 1 

7 BYTE DS 1 

8 DEPTH Ds’ 2 

9 XCOUNT DS 1 

10  SHPNO DS: 


11 DELAY DS: 
12 ~~=TEMP DS: .15 


13. GRAPHICS = $C050 
14 MIXOFF = $C052 
15 HIRES = $C057 
16 ~=PAGE1 = $C054 
17 ~——~-HIGH = $1B 
18 LOW = $1A 


SRT O OORT HEHEHE ESE HEE EERE E HEHEHE SESE EEEE SESE EE EESEEESSEEEEESESES ESSE ESSE EEE eEEeeeeeeS 


6019: 
601A: 
601B: 
601C: 
601D: 
601E: 
601F: 
6020: 
6021: 
6022: 
6023: 
6024: 
6025: 
6026: 
6027: 
602A: 
602D: 
6030: 
6033: 
6035: 
6037: 
6039: 
603B: 
603D: 
603F: 
6041: 
6042: 
6044: 
6046: 
6048: 
604A: 
604C: 
604E: 


6051: 
6054: 
6056: 
6059: 
605C: 
605F : 
6062: 
6065: 
6068: 
606B: 
606E: 
6070: 
6072: 
6075: 
6078: 
607A: 
607C: 


607F: 
6081: 
6084: 
6087: 
608A: 
608B: 


60 
60 


WAIT = $FCA8 


*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 


*CONTINUE FOR ALL 7 SHAPES 
SHPADR DFB  #<SHAPE1 
DFB  #>SHAPE1 
DFB  #<SHAPE2 
DFB  #>SHAPE2 
DFB  #<SHAPE3 
DFB  #>SHAPE3 
DFB  #<SHAPE4 
DFB  #>SHAPE4 
DFB  #<SHAPES 
DFB  #>SHAPES 
DFB  #<SHAPE6 
DFB  #>SHAPE6 
DFB  #<SHAPE7 
DFB  #>SHAPE7 
PGM LDA GRAPHICS 
LDA MIXOFF 
LDA HIRES 
LDA PAGE1 
LDA #$00 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY #$00 
LDA #$00 
CLR STA (LOW),Y 
INY 
BNE CLR 
INC HIGH 
LDA HIGH 
CMP #$40 
BLT CLR1 
LDA #$60 
STA DELAY 
Kk KKK KKK MAIN PROGRAM KkKkKKKKKKK 
START JSR INITIAL 
START1 LDA #$00 
STA SHPNO 
START2 JSK LOADSHP 
JSR DRAW 
LDA DELAY 
JSR WAIT 
JSR DRAW 
INC SHPNO 
LDA SHPNO 
CMP #$07 
BLT START2 
INC BYTE 
LDA BYTE 
CMP #$26 


;HIRES,P.1 


;CLEAR SCREEN 1 


;LOAD DELAY 


3FIRST SHAPE NUMBER 


;LOAD SHAPE INTO TEMP 
;DRAW 
;DELAY 


;ERASE 
;NEXT SHAPE NUMBER 


;F INISHED ALL 7 SHAPES? 
3IF YES, NEXT BYTE 


3END OF SCREEN? 
BLT START1 31F NO, CONTINUE DRAW 
JUMP. START 31F YES, START OVER 
oR SUBROUTINES ta 
INITIAL LDA #$00 
STA BYTE 
STA LINE 
STA LINEA 
CLC 


ADC #$05 ;DEPTH OF SHAPE 
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3SET INITIAL BYTE, LINE, DEPTH 


;1F NO, CONTINUE WITH NEXT SHAPE 


Be 


Bez 


608D: 
6090: 


6091: 
6094: 
6095: 
6096: 
6099: 
609B: 
609E: 
60A0: 
60A2: 
60A4: 
60A7: 
60A8: 
60AA: 
60AC: 


60AD: 
60AF : 
60B2: 
60B5: 
60B8: 
60BB: 
60BD: 
60C0: 
60C2: 
60C5: 
60C7: 
60CA: 
60CC: 
60CD: 
60CF: 
60D2: 
60D4: 
60D5: 
60D7: 
60DA: 
60DC: 
60DF : 
60E2: 
60E5: 
60E8: 
60EB: 
60EE: 
60F0: 
60F 3: 
60F6: 
60F7: 
60FA: 
6100: 
6103: 
6106: 
6109: 
610F: 
6112: 
6115: 
6118: 
611E: 
6121: 
6124: 


06 


60 


60 


60 


60 


60 


STA DEPTH 
RTS 
kkk kkk KR KKK KKK KK KKK 
LOADSHP LDA SHPNO 
ASL 
TAX 
LDA SHPADR,X 
STA LOW 
LDA SHPADR+1,X 
STA HIGH 
LDY #$00 
LOADSHP1 LDA (LOW),Y 
STA TEMP,Y 
INY 
CPY #$0F 
BLT LOADSHP1 
RTS 
Kkkkk kK KKKK KK KKK 
DRAW LDA #$00 
STA XCOUNT 
DRAWl LDY BYTE 
LDX LINE 
LDA HI,xX 
STA HIGH 
LDA LO,Xx 
STA LOW 
LDX XCOUNT 
LDA (LOW),Y 
EOR TEMP,X 
STA (LOW),Y 
INY 
LDA (LOW),Y 
EOR TEMP+1,Xx 
STA (LOW),Y 
INY 
LDA (LOW),Y 
EOR TEMP+2,x 
STA (LOW),Y 
INC XCOUNT 
INC XCOUNT 
INC XCOUNT 
INC LINE 
LDA LINE 
CMP DEPTH 
BLT DRAW1 
LDA LINEA 
STA LINE sRESET LINE FOR NEXT CYCLE 
RTS 
SHAPE] HEX 0200000600007E1F00 ;SHAPE TABLES 
00 


;LOAD SHAPE INTO TEMP 


HEX 7E37007E7F00 


SHAPE2 HEX 0400000C00007C3F00 
00 
HEX 7C6FO07C7F01 


SHAPE3 HEX 080000180000787F00 
00 
HEX 785F01787F03 


SHAPE4 HEX 100000300000707F01 


ainsio nia Sivan aclasecé'nd ala delcbieaip'se sucis's see enwisecenese cass sows eeesewnsceneseged seat eesasaeses Horizontal Movement and Internal Animation 


6127: 30 00 00 70 7F O01 
612D: 70 3F 03 135 HEX 703F03707F07 
6130: 70 7F 07 
6133: 20 00 00 136 SHAPES HEX 200000600000607F03 
6136: 60 00 00 60 7F 03 
613C: 60 7F 06 137 HEX 607F06607F OF 
613F: 60 7F OF 
6142: 40 00 00 138 SHAPE6 HEX 400000400100407F07 
6145: 40 01 00 40 7F 07 
614B: 40 7F OD 139 HEX 407F0OD407F 1F 
614E: 40 7F 1F 
6151: 00 01 00 140 SHAPE7 HEX 000100000300007F OF 
6154: 00 03 00 00 7F OF 
615A: 00 7F 1B 141 HEX 007F1B007F 3F 
615D: OO 7F 3F 
HI 
LO 


736 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B LINE =$6003 LINEA =$6004 
BYTE =$6005 DEPTH =$6006 XCOUNT =$6007 SHPNO =$6008 
DELAY =$6009 TEMP =$600A SHPADR =$6019 PGM =$6027 
CLR1 =$603B CLR =$603F START  =$6051 START1 =$6054 
START2 =$6059 INITIAL =$607F LOADSHP =$6091 LOADSHP 1=$60A2 
DRAW =$60AD DRAW1 =$60B2 SHAPE1 =$60F7 SHAPE2 =$6106 
SHAPE3 =$6115 SHAPE4 =$6124 SHAPES =$6133 SHAPE6 =$6142 
SHAPE7 =$6151 HI =$6160 LO =$6220 GRAPHICS=$C050 
MIXOFF =$C052 PAGE1  =$C054 HIRES =$C057 WAIT =$FCA8 


The more astute among you might wonder why TEMP is used at all, as mul- 
tiple shape tables can be accessed directly by using a counter (i.e., a number 
stored in the X register) with the instruction LDA SHAPE,X if the shape tables 
begin with a single label, SHAPE. If each of the seven shapes contains 10 bytes, 
the first shape can be called by LDA SHAPE,X when X = 0, the second shape 
when X = 10, the third shape when X = 20, etc. By manipulating X, all seven 
shape tables can be addressed. The problem here is that the X register (as well 
as the Y register and the Accumulator) can contain only a single byte, which has 
a maximum value of 255 decimal (#$FF hex). Thus, if the total number of bytes 
in all seven shape tables is large, we may have a problem if X cannot be large 
enough to access all the shape bytes. We would then have to use two or more 
counters and/or a more complicated draw routine. 

Lest you think this an unusual situation, look at the shape tables in Program 
5-4. Each shape contains 39 bytes; the seven shapes together contain 273 bytes, 
and this for shapes that are not particularly large. The use of TEMP solves this 
problem to a large extent. TEMP also uses a counter (see line 94 of Program 
5-1), but only to load a single shape, so the limitation here is that a single shape 
must contain 256 bytes or less. I suppose it’s conceivable that in a state of 
programming frenzy, you might want to draw and animate horizontally a shape 
that contains more than 256 bytes, although it would be so large, say 10 screen 
bytes wide by 30 lines deep, that it would hardly have room to move. This can be 
done (didn’t I say at the beginning that versatility is one of the virtues of 
assembly language? ), but not with the exact routines described here. I'll leave 


= 
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this to you as a problem you should be able to solve after reading this book 
(hint: divide the shape into less than 256 byte sections, use multiple TEMPs, and 
modify the draw routine). 

Using TEMP and a single draw routine makes for a neat and compact pro- 
gram but the price we pay is an increase in program execution time because 
TEMP has to be loaded for each draw. Ordinarily this is not a problem, and it 
certainly isn’t for our game program, but if extra speed is required, we can do 
away with TEMP and use seven different draw routines, each accessing one of 
the seven shape tables. This would also eliminate the need for shape address 
tables and counting shape numbers, and the program flow would be relatively 
simple—we would just draw and erase each shape in turn, testing only for the 
end of the screen. The program size would increase, and dramatically so with 
large numbers of shapes, but the program would run faster. The next program 
(Program 5-2) illustrates the point—it’s the same as Program 5-1 but without 
TEMP and shape address tables. 


DISPLAY AND 
CLEAR SCREEN 


SET INITIAL LINE NUMBER, BYTE 
POSITION AND DEPTH 


DRAW SHAPE 1 


DELAY 
ERASE SHAPE 1 
DRAW SHAPE 2 


POOR ee Pee CUC CCC CCCCerrrrrrrrrrrrrrrrrr rrr rer errr rerer rrr rrr rere ere eee ee ree es 


eee eed eee cccccrescccccccteceeeeeeeeeseneessceee sees ees receseeccecrecctccceesescvecssccscsces Horizontal Movement and Internal Animation 


JPROGRAM 5-2 
: ASM 


6000: 4C 09 


6009: AD 50 
600C: AD 52 
600F: AD 57 
6012: AD 54 
6015: A9 00 
6017: 85 1A 
6019: AY 20 
601B: 85 1B 
601D: AO 00 
601F: A9 00 
6021: 91 1A 
6023: C8 

6024: DO FB 
6026: E6 1B 
6028: A5 1B 
602A: C9 40 
602C: 90 EF 
602E: AY 60 
6030: 8D 08 


6033: 20 97 
6036: 20 BD 
6039: AD 08 
603C: 20 A8 
603F: 20 BD 
6042: 20 F7 
6045: AD 08 
6048: 20 A8 
604B: 20 F7 
604E: 20 31 
6051: AD 08 
6054: 20 A8 
6057: 20 31 
605A: 20 6B 
605D: AD 08 
6060: 20 A8 
6063: 20 6B 
6066: 20 Ad 
6069: AD 08 
606C: 20 A8 
606F: 20 A5 
6072: 20 DF 


60 


co 
co 
CO 
co 


60 
FC 


61 


OONDNHPWNMrE 


*1 SHAPE HORIZONTAL* 7 DRAW ROUTINES 
*2 BYTES WIDE, 5 LINES DEEP 


LINE 
LINEA 
BYTE 
DEPTH 
XCOUNT 
DELAY 
GRAPHICS 
MI XOFF 
HIRES 
PAGE1 
HIGH 
LOW 
WAIT 
PGM 


CLR1 
CLR 


ORG 
JMP 
DS 
DS 
DS 
DS 
DS 
DS 


STA 


$6000 
PGM 


pet pe pe ps pe 


$C050 
$C052 
$C057 
$C054 
$1B 

$1A 
$FCA8 
GRAPHICS 
MIXOFF 
HIRES 
PAGE1 
#$00 
LOW 
#$20 
HIGH 
#$00 
#$00 
(LOW) ,Y 


CLR 
HIGH 
HIGH 
#$40 
CLR1 
#$60 
DELAY 


sHIRES,P.1 


;CLEAR SCREEN 1 


;LOAD DELAY 


KkeKKK KK KKK MAIN PROGRAM KKKKKKKKKK 


START 
START1 


JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 


INITIAL 
DRAW1 
DELAY 
WAIT 
DRAW1 
DRAW2 
DELAY 
WAIT 
DRAW2 
DRAW3 
DELAY 
WAIT 
DRAW3 
DRAW4 
DELAY 
WAIT 
DRAW4 
DRAWS 
DELAY 
WAIT 
DRAWS 
DRAW6 


;DRAW 


; ERASE 
; DRAW 


;ERASE 
;DRAW 


;ERASE 
;DRAW 


;ERASE 
;DRAW 


;ERASE 
;DRAW 


67 


Be 


Hi-Res Graphics and Animation Using Assembly Language 


6075: 
6078: 
607B: 
607E: 
6081: 
6084: 
6087: 
608A: 
608D: 
6090: 
6092: 
6094: 


6097: 
6099: 
609C: 
609F: 
60A2: 
60A3: 
60A5: 
60A8: 


60A9: 
60AC: 
60AF: 
60B2: 
60B4: 
60B7: 
60B9: 
60BC: 


60BD: 
60BF: 
60C2: 
60C5: 
60C7: 
60CA: 
60CC: 
60CD: 
60CF: 
60D2: 
60D4: 
60D5: 
60D7: 
60DA: 
60DC: 
60DF: 
60E2: 
60E5: 
60E8: 
60EB: 
60EE: 
60F0: 
60F3: 
60F6: 
60F7: 
60F9: 
60FC: 
60FF: 
6101: 
6104: 


60 
60 


LDA 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
INC 
LDA 
CMP 


DELAY 
WAIT 
DRAW6 
DRAW7 
DELAY 
WAIT 
DRAW7 
BYTE 
BYTE 
#$26 
BLT START1 
JMP START 
KaKKKKK SUBROUTINES KkekKKK 
INITIAL LDA #$00 
STA BYTE 
STA LINE 
STA LINEA 
CLC 
ADC 
STA 
RTS 
KEKKKKKEKEKKKKKKKKKKKKK 
SETUP LDY BYTE 
LDX LINE 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDX XCOUNT 


#$05 
DEPTH 


KREKKKKKKKEKKKKKKKKKKK KKK 


DRAW1 LDA #$00 

STA XCOUNT 
JSR SETUP 
LDA (LOW) ,Y 
EOR SHAPE1,X 
STA (LOW) ,Y 
INY 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 
LDA 
STA 
JSR 
LDA 
EOR 
STA 


DRAW1A 


(LOW) ,Y 
SHAPE1+1,X 
(LOW) ,Y 


(LOW) ,Y 
SHAPE1+2 ,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
LINE 

LINE 

DEPTH 
DRAWI1A 
LINEA 

LINE 

DRAW2 #$00 
XCOUNT 
SETUP 
(LOW) ,Y 
SHAPE2 ,X 
(LOW) ,Y 


DRAW2A 


;ERASE 
;DRAW 


;ERASE 


;DEPTH OF SHAPE 


POOP O Ree ewe R eee eee EE EEE EH EEEE EEE EEEEESEEEEESEE EEE EEEEE SEES SEES EEE EEE EEE EEEEE® 


6106: 
6107: 
6109: 
610C: 
610E: 
610F: 
6111: 
6114: 
6116: 
6119: 
611C: 
611F: 
6122: 
6125: 
6128: 
612A: 
612D: 
6130: 
6131: 
6133: 
6136: 
6139: 
613B: 
613E: 
6140: 
6141: 
6143: 
6146: 
6148: 
6149: 
614B: 
614E: 
6150: 
6153: 
6156: 
6159: 
615C: 
615F: 
6162: 
6164: 
6167: 
616A: 
616B: 
616D: 
6170: 
6173: 
6175: 
6178: 
617A: 
617B: 
617D: 
6180: 
6182: 
6183: 
6185: 
6188: 
618A: 
618D: 
6190: 
6193: 
6196: 


121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 


DRAW3 
DRAW3A 


DRAW4 
DRAW4A 


INY 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 
LDA 
STA 
JSR 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 
LDA 
STA 
JSR 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 


(LOW) ,Y 
SHAPE2+1,X 
(LOW) ,Y 


(LOW) ,Y 
SHAPE2+2 ,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
LINE 
LINE 
DEPTH 
DRAW2A 
LINEA 
LINE 


#$00 
XCOUNT 
SETUP 
(LOW) ,Y 
SHAPE3 , X 
(LOW) ,Y 


(LOW) ,Y 
SHAPE3+1,X 
(LOW) ,Y 


(LOW) ,Y 
SHAPE3+2 , X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
LINE 
LINE 
DEPTH 
DRAW3A 
LINEA 
LINE 


#$00 
XCOUNT 
SETUP 
(LOW) ,Y 
SHAPE4 ,X 
(LOW) ,Y 


(LOW) ,Y 
SHAPE4+1 , X 
(LOW) ,Y 


(LOW) ,Y 
SHAPE4+2 ,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
LINE 

LINE 
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6199: CD 06 60 182 CMP 
619C: 90 D2 183 BLT 
619E: AD 04 60 184 LDA 
61Al: 8D 03 60 185 STA 
61A4: 60 186 RTS 
61A5: AQ 00 187 DRAWS LDA 
61A7: 8D 07 60 188 STA 
61AA: 20 A9 60 189 DRAW5A JSR 
61AD: Bl 1A 190 LDA 
61AF: 5D 8F 62 191 EOR 
61B2: 91 1A 192 STA 
61B4: C8 193 INY 
61B5: Bl 1A 194 LDA 
61B7: 5D 90 62 195 EOR 
61BA: 91 1A 196 STA 
61BC: C8 197 INY 
61BD: Bl 1A 198 LDA 
61BF: 5D 91 62 199 EOR 
61C2: 91 1A 200 STA 
6104: EE 07 60 201 INC 
61C7: EE 07 60 202 INC 
61CA: EE 07 60 203 INC 
61CD: EE 03 60 204 INC 
61D0: AD 03 60 205 LDA 
61D3: CD 06 60 206 CMP 
61D6: 90 D2 207 BLT 
61D8: AD 04 60 208 LDA 
61DB: 8D 03 60 209 STA 
61DE: 60 210 RTS 
61DF: A9 00 211 DRAW6 LDA 
61E1: 8D 07 60 212 STA 
61E4: 20 A9 60 213 DRAW6A JSR 
61E7: Bl 1A 214 LDA 
61E9: 5D 9E 62 215 EOR 
61EC: 91 1A 216 STA 
6IEE: C8 217 INY 
61EF: Bl 1A 218 LDA 
61F1: 5D 9F 62 219 EOR 
61F4: 91 1A 220 STA 
61F6: C8 221 INY 
61F7: Bl 1A 222 LDA 
61F9: 5D AO 62 223 EOR 
61FC: 91 1A 224 STA 
61FE: EE 07 60 225 INC 
6201: EE 07 60 226 INC 
6204: EE 07 60 227 INC 
6207: EE 03 60 228 INC 
620A: AD 03 60 229 LDA 
620D: CD 06 60 230 CMP 
6210: 90 D2 231 BLT 
6212: AD 04 60 232 LDA 
6215: 8D 03 60 233 STA 
6218: 60 234 RTS 
6219: AI 00 235 DRAW7 LDA 
621B: 8D 07 60 236 STA 
621E: 20 A9 60 237 DRAW7A_ JSR 
6221: Bl 1A 238 LDA 
6223: 5D AD 62 239 EOR 
6226: 91 1A 240 STA 
6228: C8 241 INY 
6229: Bl 1A 242 LDA 


Pee eee UU COO CO COCO C CCC CCC CeCe ee eee rere reece rere cere rere rere errr rer errr eee 


DEPTH 
DRAW4A 
LINEA 
LINE 


#$00 
XCOUNT 
SETUP 
(LOW) ,Y 
SHAPES , X 
(LOW) ,Y 


(LOW) ,Y 
SHAPE5+1 , X 
(LOW) ,Y 


(LOW) ,Y 
SHAPE5+2 ,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
LINE 
LINE 
DEPTH 
DRAW5A 
LINEA 
LINE 


#$00 
XCOUNT 
SETUP 
(LOW) ,Y 
SHAPE6 ,X 
(LOW) ,Y 


(LOW) ,Y 
SHAPE6+1, X 
(LOW) ,Y 


(LOW) ,Y 
SHAPE6+2 ,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
LINE 
LINE 
DEPTH 
DRAW6A 
LINEA 
LINE 


#$00 
XCOUNT 
SETUP 
(LOW) ,Y 
SHAPE7 ,X 
(LOW) ,Y 


(LOW) ,Y 


eee eC OU OO OCCU ESCO CCC e Ce ere Cee eee errr ee errr eee cece errr eerie eee eee eee eee ee rrr) 


622B: 5D AE 
622E: 91 1A 
6230: 
6231: Bl 1A 
6233: 
6236: 91 
6238: EE 07 
623B: EE 
623E:. EE 
6241: 
6244: AD 
6247: 
624A: 
624C: 
624F: 8D 03 
6252: 
6253: 02 
6256: 
625C: 7E 37 
625F: 7E 7F 
6262: 
6265: OC 
626B: 7C 
626E: 7C: 7F 
6271: 
6274: 18 
627A: 78 5F 
627D: 78 7F 
6280: 10 
6283: 30 
6289: 70 3F 
628C: 70 7F 
628F : 
6292: 
6298: 
629B: 
629E: 40 
62Al1: 
62A7: 
62AA: 
62AD: 
62B0: 
62B6: 
62B9: 


1084 bytes 


62 


243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
(ETE 
260 


261 
7C 3F 
262 


263 
78 7F 
264 


265 
70 7F 
266 


267 
60 7F 
268 


269 
40 7F 
270 


271 
00 7F 
272 


SHAPE1 
00 


SHAPE2 
00 


SHAPE3 
00 


SHAPE4 
01 


SHAPES 
03 


SHAPE6 
07 


SHAPE7 
OF 


HI 
LO 


EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 
HEX 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 


SHAPE7+1, X 
(LOW) ,Y 


(LOW) ,Y 

SHAPE7+2,X 

(LOW) ,Y 

XCOUNT 

XCOUNT 

XCOUNT 

LINE 

LINE 

DEPTH 

DRAW7A 

LINEA 

LINE 
0200000600007E1F00 
7E37007E7F00 
0400000C00007C3F00 
7C6F007C7F01 
080000180000787F00 
785F01787F03 
100000300000707F01 
703F03707F07 
200000600000607F 03 
607F06607F0F 
400000400100407F07 
407FOD407F 1F 
000100000300007F0F 


007F 1B007F 3F 
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Symbol table - numerical order: 


LOW =$1A HIGH =$1B LINE =$6003 LINEA  =$6004 
BYTE =$6005 DEPTH =$6006 XCOUNT =$6007 DELAY =$6008 
PGM =$6009 CLR1 =$601D CLR =$6021 START  =$6033 
START1 =$6036 INITIAL =$6097 SETUP =$60A9 DRAW1 =$60BD 
DRAW1A =$60C2 DRAW2 =$60F7 DRAW2A =$60FC DRAW3 =$6131 
DRAW3A =$6136 DRAW4  =$616B DRAW4A =$6170 DRAWS =$61A5 
DRAW5A =$61AA DRAW6 = =$61DF DRAW6A =$61E4 DRAW7 =$6219 
DRAW7A =$621E SHAPE1 =$6253 SHAPE2 =$6262 SHAPE3 =$6271 
SHAPE4 =$6280 SHAPE5 =$628F SHAPE6 9 =$629E SHAPE7 =$62AD 
HI =$62BC LO =$637C GRAPHIC S=$C050 MIXOFF =$C052 
PAGE1  =$C054 HIRES =$C057 WAIT =$FCA8 


As you.can see, Program 5-2 is larger than Program 5-1. With more shapes, it 
would be larger still, but it does run faster, even though it doesn’t seem to—the 
plane traverses the screen in about the same time for both programs but this is 
because the programs are simple, with only one shape, and so the determining 
factor is the time delay. The speed difference would be noticeable only with 
larger and more complicated programs. 


SHAPES AT NEW LINE POSITIONS 


FORO O eee eee eee eee Eee HEE THEE O EEE EE EEE EEEE Eee 


Before going on to the next section, allow a minor digression—I want to 
illustrate how easy it is to modify our programs to make them more interesting. 
In the next program (5-3) we're going to modify Program 5-1 so that the air- 
planes begin their screen traversal at five different line positions instead of at the 
same line each time. This makes for a more visually appealing program. 

The modifications are fairly simple. In the INITIAL subroutine, the starting 
line for each traversal is determined by accessing numbers in a table labelled 
NEWLINE that contains five bytes, one for each new line position. The bytes are 
selected by LDA NEWLINE,X (line 86) where X contains values 0 to 4. The 
values for X are loaded from a reserved memory location labeled COUNTER 
(LDX COUNTER, line 85). Initially, COUNTER is set to 0 (lines 79 and 80) and 
is incremented by one at the end of each screen traversal (line 75). When the 
values in COUNTER are from 0 to 4, the branch in line 78 is taken and the shape 
starts at a new line position. When the value in COUNTER reaches 5, we're at 
the end of the NEWLINE table and so we want to start over. At this point, the 
branch at line 78 is not taken and COUNTER is reset to 0 before we begin the 
next screen journey (lines 79 to 81). To program more or less line positions, 
place the desired values in NEWLINE and change the CMP value in line 77 to the 
number of bytes in the NEWLINE table. 


eee eee EOE OOOO CUO C OCCU e eee eee reece eee eee ee errr rere rer rr reer eee eer reer ee eee ss 


LOAD SHAPE ADDRESSES 
INTO SHPADR 
DISPLAY AND 
CLEAR SCREEN 
SET INITIAL BYTE 
POSITION AND DEPTH 
GET LINE POSITION 
FROM TABLE 
FIRST SHAPE 
LOAD INTO TEMP 


NEXT SHAPE 
No 
ALL 7 SHAPES? 
NEXT SCREEN BYTE 
“END OF SGREEN? | 


es 
END OF SCREEN? 
es 
NEXT LINE POSITION 
END OF LINE No 
POSITION TABLE? 


Yes 


RESET TO FIRST LINE 
POSITION IN TABLE 


Y 
Y 
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JPROGRAM 5-3 


ASM 
1 
2 
3 
6000: 4C 28 60 4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
601A: 17 23 
601B: 61 24 
601C: 26 25 
601D: 61 26 
601E: 35 27 
601F: 61 28 
6020: 44 29 
6021: 61 30 
6022: 53 31 
6023: 61 32 
6024: 62 33 
6025: 61 34 
6026: 71 35 
6027: 61 36 


6028: AD 50 CO 37 
602B: AD 52 CO 38 
602E: AD 57 CO 39 
6031: AD 54 CO 40 
6034: AY 00 41 
6036: 85 1A 42 
6038: AY 20 43 
603A: 85 1B ae 
603C: AO 00 45 
603E: A9 00 46 
6040: 91 1A 47 
6042: C8 48 
6043: DO FB 49 
6045: E6 1B 50 
6047: A5 1B 51 
6049: C9 40 52 
604B: 90 EF 53 
604D: AQ 60 54 
604F: 8D 09 60 55 
6052: AQ 00 56 
6054: 8D OA 60 57 


6057: 20 94 60 59 


*1 SHAPE HORIZONTAL NEWLINE* 
*2 BYTES WIDE, 5 LINES DEEP 


ORG $6000 

JMP PGM 
LINE DS. A 
LINEA DS 1 
BYTE DS. 1 
DEPTH DS 1 
XCOUNT DS 1 
SHPNO oS. 1 
DELAY DS: 1 


COUNTER DS 1 
TEMP DS 15 


GRAPHICS = $C050 
MIXOFF = $C052 
HIRES 2 $C057 
PAGE1 = $C054 
HIGH = $1B 

LOW = $1A 

WAIT = $FCA8 


*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
*CONTINUE FOR ALL 7 SHAPES 
SHPADR DFB- #<SHAPE1 
DFB #>SHAPE1 
DFB #<SHAPE2 
DFB #>SHAPE2 
DFB #<SHAPE3 
DFB #>SHAPE3 
DFB #<SHAPE4 
DFB  #>SHAPE4 
DFB #<SHAPE5 
DFB #>SHAPE5 
DFB  #<SHAPE6 
DFB #>SHAPE6 
DFB #<SHAPE7 
DFB #>SHAPE7 
PGM LDA GRAPHICS — ;HIRES,P.1 
LDA MIXOFF 
LDA HIRES 
LDA PAGE1 
LDA #$00 ;CLEAR SCREEN 1 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY #$00 
LDA #$00 
CLR STA (LOW),Y 
INY 
BNE CLR 
INC HIGH 
LDA HIGH 
CMP #$40 
BLT CLR1 
LDA #$60 ;LOAD DELAY 
STA DELAY 
LDA #$00 ;ZERO COUNTER 
STA COUNTER 


KKKKKKKKKK MAIN PROGRAM KKKKKKKEKK 


START JSR INITIAL 3SET INITIAL BYTE, LINE, DEPTH 


S000 WS Wie 0 68d. 00:40 85'S E0618 4.0 86658 5 O90 66s Hn K KUN TENET TES ceCaSEe OReSeRSeb ned sebedsosbeseceeuse Horizontal Movement and Internal Animation 


605A: 
605C: 
605F: 
6062: 
6065: 
6068: 
606B: 
606E: 
6071: 
6074: 
6076: 
6078: 
607B: 
607E: 
6080: 
6082: 
6085: 
6088: 
608A: 
608C: 
608E: 
6091: 


6094: 
6096: 
6099: 
609C: 
609F: 
60A2: 
60A5: 
60A6: 
60A8: 
60AB: 


60AC: 
60AF : 
60B0: 
60B1: 
60B4: 
60B6: 
60B9: 
60BB: 
60BD: 
60BF: 
60C2: 
60C3: 
60C5: 
60C7: 


60C8: 
60CA: 
60CD: 
60D0: 
60D3: 
60D6: 
60D8: 
60DB: 
60DD: 
60E0: 
60E2: 
60E5: 


START1 LDA 
STA 
START2 JSR 
JSR 
LDA 
JSR 
JSR 
INC 
LDA 
CMP 
BLT 
INC 
LDA 
CMP 
BLT 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
CONT JMP 


#$00 
SHPNO 
LOADSHP 
DRAW 
DELAY 
WAIT 
DRAW 
SHPNO 
SHPNO 
#$07 
START2 
BYTE 
BYTE 
#$26 
START1 
COUNTER 
COUNTER 
#$05 
CONT 
#$00 
COUNTER 
START 


3FIRST SHAPE NUMBER 


3LOAD SHAPE INTO TEMP 
;DRAW 
;DELAY 


;ERASE 
3;NEXT SHAPE NUMBER 


sFINISHED ALL 7 SHAPES? 
31F NO, CONTINUE WITH NEXT SHAPE 
SIF YES;.NEXT BYTE 


sEND OF SCREEN? 
;1F NO, CONTINUE DRAW 
;IF YES, INCREMENT COUNTER 


sFINISHED 5 LINES? 
;1F NO, CONTINUE 
;IF YES, RESET COUNTER 
TO ZERO AND 
START OVER 


KkKKKKKKKK SUBROUTINES KkKKKKKKKKK 


INITIAL LDA 
STA 
LDX 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 


#$00 

BYTE 
COUNTER 
NEWLINE ,X 
LINE 
LINEA 


#$05 
DEPTH 


KRKKKKKKKKKKKKKKK KKK 


LOADSHP LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LOADSHP1 LDA 
STA 
INY 
CPY 
BLT 


SHPNO 


SHPADR , X 
LOW 
SHPADR+1 , X 
HIGH 

#$00 
(LOW) ,Y 
TEMP ,Y 


#$0F 
LOADSHP1 


KKEKKKKEKEKRKEKKKKKKKKKKKKEK 


DRAW LDA 
STA 
DRAW1 LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
EOR 
STA 


#$00 
XCOUNT 
BYTE 
LINE 
HI,X 
HIGH 
LO,X 
LOW 
XCOUNT 
(LOW) ,Y 
TEMP ,X 
(LOW) ,Y 


;DEPTH OF SHAPE 


;LOAD SHAPE INTO TEMP 


15 


76 


60E7: C8 

60E8: Bl 1A 
60EA: 5D OC 60 
60ED: 91 1A 
60EF: C8 

60FO: Bl 1A 
60F2: 5D OD 60 
60F5: 91 1A 
60F7: EE 07 60 
60FA: EE 07 60 
60FD: EE 07 60 
6100: EE 03 60 
6103: AD 03 60 
6106: CD 06 60 
6109: 90 C2 
610B: AD 04 60 
610E: 8D 03 60 
6111: 60 

6112: 00 AO 14 
6115: 30 60 
6117: 02 00 00 
611A: 06 00 00 
6120: 7E 37 00 
6123: 7E 7F 00 
6126: 04 00 00 
6129: OC 00 00 
612F: 7C 6F 00 
6132: 7C 7F 01 
6135: 08 00 00 
6138: 18 00 00 
613E: 78 5F O01 
6141: 78 7F 03 
6144: 10 00 00 
6147: 30 00 00 
614D: 70 3F 03 
6150: 70 7F 07 
6153: 20 00 00 
6156: 60 00 00 
615C: 60 7F 06 
615F: 60 7F OF 
6162: 40 00 00 
6165: 40 01 00 
616B: 40 7F OD 
616E: 40 7F 1F 
6171: 00 01 00 
6174: 00 03 00 
617A: OO 7F 1B 
617D: 00 7F 3F 


768 bytes 


121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 


140 
7EO IF 
141 


142 
1. SF 
143 


144 
78 7F 
145 


146 
70 7F 
147 


148 
60 7F 
149 


150 
40 7F 
151 


152 
00 7F 
153 


NEWLINE 
SHAPE1 
00 


SHAPE2 
00 


SHAPE3 
00 


SHAPE4 
01 


SHAPES 
03 


SHAPE6 
07 


Symbol table - numerical order: 


LOW =$1A 

BYTE =$6005 
DELAY =$6009 
PGM =$6028 
START1 =$605A 
LOADSHP =$60AC 
NEWLINE =$6112 
SHAPE4 =$6144 
HI =$6180 
PAGE1  =$C054 


HIGH 


DEPTH 


=$1B 
=$6006 


COUNTER =$600A 


CLR1 


=$603C 


START2 =$605F 
LOADSHP 1=$60BD 
SHAPE] =$6117 
SHAPE5 =$6153 


HIRES 


=$6240 
=$C057 


eer r reer rere rere rere reer reer eer rerrr errr errr rere eee ere rere eee e eres 


INY 

LDA (LOW),Y 

EOR TEMP+1,X 

STA (LOW),Y 

INY 

LDA (LOW),Y 

EOR TEMP+2,X 

STA (LOW),Y 

INC XCOUNT 

INC XCOUNT 

INC XCOUNT 

INC LINE 

LDA LINE 

CMP DEPTH 

BLT DRAW1 

LDA LINEA 

STA LINE sRESET LINE FOR NEXT CYCLE 

RTS 

HEX 00A0143060 

HEX 0200000600007E1F00 ;SHAPE TABLES 

HEX 7£37007E7F00 

HEX 0400000C00007C3F00 

HEX 7C6FOO7C7FO1 

HEX 080000180000787F00 

HEX 785F01787F03 

HEX 100000300000707F01 

HEX 703F03707F07 

HEX 200000600000607F03 

HEX 607F06607F0F 

HEX 400000400100407F07 

HEX 407FOD407F 1F 

HEX 000100000300007F OF 

HEX 007F1B007F 3F 
LINE  =$6003 LINEA  =$6004 
XCOUNT =$6007 SHPNO  =$6008 
TEMP —_ =$600B SHPADR =$601A 
CLR =$6040 START  =$6057 
CONT _=$6091 INITIAL =$6094 
DRAW = $60C8 DRAW1 =$60CD 
SHAPE2 =$6126 SHAPE3 =$6135 
SHAPE6 =$6162 SHAPE7 =$6171 
GRAPHICS=$C050 MIXOFF =$C052 


WAIT 


=$FCA8 


POOR Ree eee meee eee He Eee eee EH HEHEHE EEEEEEE SS OE EEE H EEE ESEE SSE EEEE ESSE ESSE SHEE ESSE EE EEEES 


Peer eee reer reece eee eee eeee eee eeeseeeeeseseeeeees 


As a special added attraction, for your edification and programming pleasure, 
I hereby present Program 5-4, which is the same as Program 5-1, except it uses a 
DRAW-DRAW routine instead of DRAW-ERASE. Let’s look at some of the differ- 
ences between Program 5-1 and 5-4. 

First, since there is no erase step, attention has to be paid to the shape tables 
to insure that no part of a shape is left on the screen. For vertical animation, we 
include a border of #$00’s equal to the maximum shape move. For horizontal 
animation, the situation is somewhat different. If we look at the shape tables at 
the beginning of this chapter, we see that the last shape (number 6) has no bits 
in the first byte. Thus when we continue with shape 0 in the second byte, shape 
6 is completely erased. Fine. But suppose we drew the shape starting with the 
first column instead of the second. Shape 6 would then have bits in the first byte. 
If we then continue with shape 0 in the second byte, the bits in the first byte 
would remain on the screen. Solution? Draw the shapes so the first byte is empty 
at shape 6— otherwise, a trailing whole byte of #$00’s will have to be included. 
This not only would increase the size of the shape tables but would also mean 
that a shape could not start at a screen border but rather one byte over. 

Next, the DRAW routine does not use EOR instructions, but rather plots by 
LDA shape byte, STA screen location. Note also that the shape bytes are retrieved 
from TEMP rather than from the shape tables directly, as in Program 5-1. 
Because we want to erase the shape when it reaches the right border in prepara- 
tion for a new screen traversal, we do need a separate ERASE routine. This 
ERASE routine is essentially identical to the DRAW routine of Program 5-1; i.e., it 
erases using the EOR method of plotting because when accessed, the screen 
bytes already contain the shape bytes to be erased. 

Finally, let’s examine some details in the MAIN PROGRAM. First we initialize 
the shape position and depth, select the first shape, load TEMP, draw, and then 
delay. We do not erase as was done in Program 5-1, as the erase is necessary only 
when the shape has reached the screen border. We continue by testing to see if 
we've drawn all seven shapes and, if we have, we start again at the next screen 
byte; this continues until we’ve reached the end of the screen (BYTE = #$26). 
At this point, before going to START to begin a new screen traversal, we go to 
the ERASE routine to erase the last shape. Note that the last shape is drawn 
starting in screen byte #$25 but BYTE contains the value #$26. So the first line in 
the ERASE routine is DEC BYTE, which puts #$25 in BYTE in preparation for the 
erase. The last line of ERASE then sends the program to START for a new be- 
ginning. 

If we run Programs 5-1 and 5-4, we see very little difference with perhaps 
somewhat smoother animation in 5-4 on close inspection. The price we pay for 
this is a somewhat longer program because of the extra erase routine. Again, the 
choice of DRAW-ERASE or DRAW-DRAW depends on the program’s particular 
requirements. With a larger, more complicated shape, the smoothness inherent 
in DRAW-DRAW may become more apparent and, of course, if the program 
doesn’t remove shapes from the screen, the extra erase routine would not be 
needed. On the other hand, Program 5-4 would not be appropriate if the shape 
were involved in collision detection or were to be drawn over a background. 

Programs 5-2, 5-3, and 5-4 are not incorporated into the final game program 
because I would like you to use them as starting points to ease you into attempt- 
ing your own modifications to the game once you’ve finished Part One. Sugges- 
tions for modifications and the problems to consider will be discussed in the last 
chapter. 
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LOAD SHAPE ADDRESSES 
INTO SHPADR 
DISPLAY AND 
CLEAR SCREEN 


SET INITIAL LINE, BYTE 
POSITION AND DEPTH 


FIRST SHAPE 
LOAD INTO TEMP 


NEXT SHAPE 
ALL 7 SHAPES? 
Yes 


NEXT SCREEN BYTE 
END OF SCREEN? 


JPROGRAM 5-4 
: ASM 


1 *1 SHAPE HORIZONTAL - DRAW-DRAW* 
2 *2 BYTES WIDE, 5 LINES DEEP 
3 ORG $6000 
6000: 4C 27 60 4 JMP PGM 
5 LINE DS. 2 
6 LINEA DS 
7 BYTE DS 
8 


1 
1 
DEPTH DS. 2 
9 XCOUNT DS 1 

1 


10 = SHPNO DS 

11 ~DELAY DS 1 

12 ~=TEMP DS. .15 

13. GRAPHICS = $C050 
14 MIXOFF = $C052 
15 HIRES = $C057 
16 ~=PAGE1 = $C054 
17. —_~-HIGH = $1B 
18 LOW = $1A 


sence eee e cece ne eneeee eee ne nen eeeeee esse een eeeeees seen nee eeee een eeeeees sees ee nneeeeeeennenes Horizontal Movement and Internal Animation 


6019: 3D 
601A: 61 
601B: 4C 
601C: 61 
601D: 5B 
601E: 61 
601F: 6A 
6020: 61 
6021: 79 
6022: 61 
6023: 88 
6024: 61 
6025: 97 
6026: 61 
6027: AD 
602A: AD 
602D: AD 
6030: AD 
6033: A9 
6035: 85 
6037: A9 
6039: 85 
603B: AO 
603D: A9 
603F: 91 
6041: C8 
6042: DO 
6044: E6 
6046: AS 
6048: C9 
604A: 90 
604C: A9 
604E: 8D 


6051: 20 
6054: AQ 
6056: 8D 
6059: 20 
605C: 20 
605F: AD 
6062: 20 
6065: EE 
6068: AD 
606B: C9 
606D: 90 
606F: EE 
6072: AD 
6075: C9 
6077: 90 
6079: 4C 


607C: AY 
607E: 8D 
6081: 8D 
6084: 8D 
6087: 18 
6088: 69 
608A: 8D 


WAIT = — $FCA8 
*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
*CONTINUE FOR ALL 7 SHAPES 
SHPADR DFB #<SHAPE1 
DFB #>SHAPE1 
DFB  #<SHAPE2 
DFB #>SHAPE2 
DFB #<SHAPE3 
DFB #>SHAPE3 
DFB  #<SHAPE4 
DFB #>SHAPE4 
DFB  #<SHAPES 
DFB  #>SHAPES 
DFB  #<SHAPE6 
DFB #>SHAPE6 
DFB  #<SHAPE7 
DFB #>SHAPE7 
PGM LDA GRAPHICS ;HIRES,P.1 
LDA MIXOFF 
LDA HIRES 
LDA PAGE1 
LDA #$00 sCLEAR SCREEN 1 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY #$00 
LDA #$00 1% 
CLR STA (LOW),Y 
INY Bi 
BNE CLR 
INC HIGH 
LDA HIGH 
CMP #$40 
BLT CLR1 
LDA #$60 ;LOAD DELAY 
STA DELAY 


kkkKKKKKKK MAIN PROGRAM kkkkkkkKKK 


START JSR INITIAL 3SET INITIAL BYTE, LINE, DEPTH 


START1 LDA #$00 ;FIRST SHAPE NUMBER 
STA SHPNO 
START2 JSR  LOADSHP ;LOAD SHAPE INTO TEMP 
JSR DRAW ; DRAW 
LDA DELAY ;DELAY 
JSR WAIT 
INC SHPNO sNEXT SHAPE NUMBER 
LDA SHPNO 
CMP #$07 sFINISHED ALL 7 SHAPES? 
BLT START2 3IF NO, CONTINUE WITH NEXT SHAPE 
INC BYTE 3IF YES, NEXT BYTE 
LDA BYTE 
CMP #$26 ;END OF SCREEN? 
BLT START1 ;1F NO, CONTINUE DRAW 
JMP ERASE 3IF YES, ERASE & START OVER 


KkKKKKKKKKEK SUBROUTINES kkk KKKK KKK 


INITIAL LDA #$00 
STA BYTE 
STA LINE 
STA LINEA 
CLC 
ADC #$05 sDEPTH OF SHAPE 
STA DEPTH 


Bs 


608D: 60 80 RTS 

81 KKEKKKKKKKKKKKEKKKKKKKK 
608E: AD 08 60 82 LOADSHP LDA SHPNO ;LOAD SHAPE INTO TEMP 
6091: OA 83 ASL 
6092: AA 84 TAX 
6093: BD 19 60 85 LDA SHPADR,X 
6096: 85 1A 86 STA LOW 
6098: BD 1A 60 87 LDA SHPADR+1,X 
609B: 85 1B 88 STA HIGH 
609D: AO 00 89 LDY #$00 
609F: Bl 1A 90 LOADSHP1 LDA (LOW),Y 
60A1: 99 0A 60 91 STA TEMP,Y 
60A4: C8 92 INY 
60A5: CO OF 93 CPY #$0F 
60A7: 90 F6 94 BLT LOADSHP1 
60A9: 60 95 

96 KKKKKKKKKKKKKKEEKEKKKKKEEK 
60AA: AY 00 97 DRAW LDA #$00 
60AC: 8D 07 60 98 STA XCOUNT 
60AF: AC 05 60 99 DRAW1 LDY BYTE 
60B2: AE 03 60 -100 LDX LINE 
60B5: BD A6 61 101 LDA HI,X 
60B8: 85 1B 102 STA HIGH 
60BA: BD 66 62 103 LDA LO,X 
60BD: 85 1A 104 STA LOW 
60BF: AE 07 60 105 LDX XCOUNT 
60C2: BD 0A 60 106 LDA TEMP ,X 
60C5: 91 1A 107 STA (LOW),Y 
60C7: C8 108 INY 
60C8: BD 0B 60 109 LDA TEMP+1,X 
60CB: 91 1A 110 STA (LOW),Y 
60CD: C8 111 INY 
60CE: BD OC 60 112 LDA TEMP+2,X 
60D1: 91 1A 113 STA (LOW),Y 
60D3: EE 07 60 114 INC XCOUNT 
60D6: EE 07 60 115 INC XCOUNT 
6009: EE 07 60 116 INC XCOUNT 
60DC: EE 03 60 117 INC LINE 
60DF: AD 03 60 118 LDA LINE 
60E2: CD 06 60 119 CMP DEPTH 
60E5: 90 C8 120 BLT DRAW1 
60E7: AD 04 60 121 LDA LINEA 
60EA: 8D 03 60 122 STA LINE sRESET LINE FOR NEXT CYCLE 
60ED: 60 123 


124 KRKKKKKKKKEKKKKKKKKKKKKKKKKK 


60EE: CE 05 60 125 ERASE DEC BYTE 


60F1: A9 00 126 LDA #$00 
60F3: 8D 07 60 127 STA XCOUNT 
60F6: AC 05 60 128 ERASE1 LDY BYTE 
60F9: AE 03 60 129 LDX LINE 
60FC: BD A6 61 130 LDA HI,X 
60FF: 85 1B 131 STA HIGH 
6101: BD 66 62 132 LDA LO,X 
6104: 85 1A 133 STA LOW 
6106: AE 07 60 134 LDX XCOUNT 
6109: Bl 1A 135 LDA (LOW),Y 
610B: 5D OA 60 136 EOR TEMP,X 
610E: 91 1A 137 STA (LOW),Y 
6110: C8 138 INY 

6111: Bl 1A 139 LDA (LOW) ,Y 


6113: 5D 0B 60 140 EOR TEMP+1,X 


ngiecle sae Gan Gepoioaed Gandia cssuseeweelecedisescntspeteasikedes coctens aeaamannat tacauas eae ses Horizontal Movement and Internal Animation 


6116: 91 1A 141 STA (LOW),Y 
6118: C8 142 INY 

6119: Bl 1A 143 LDA (LOW),Y 
611B: 5D OC 60 144 EOR TEMP+2,X 
OLIE:° 91 1A 145 STA (LOW),Y 
6120: EE 07 60 146 INC XCOUNT 
6123: EE 07 60 147 INC XCOUNT 
6126: EE 07 60 148 INC XCOUNT 
6129: EE 03 60 149 INC LINE 
612C: AD 03 60 150 LDA LINE 
612F: CD 06 60 151 CMP DEPTH 
6132: 90 C2 152 BLT ERASE1 
6134: AD 04 60 153 LDA LINEA 
6137: 8D 03 60 154 STA LINE 
613A: 4C 51 60 155 JMP START 


613D: 02 00 00 156 SHAPE1 HEX 0200000600007E1F00 ;SHAPE TABLES 
6140: 06 00 00 7E 1F 00 

6146: 7E 37 00 157 HEX 7E37007E7F00 

6149: 7E 7F 00 

614C: 04 00 00 158 SHAPE2 HEX 0400000C00007C3F00 
614F: OC 00 00 7C 3F 00 

6155: 7C 6F 00 159 HEX 7C6FOO7C7FO1 

6158: 7C 7F 01 

615B: 08 00 00 160 SHAPE3 HEX 080000180000787F00 
615E: 18 00 00 78 7F 00 

6164: 78 5F 01 161 HEX 785F01787F03 

6167: 78 7F 03 

616A: 10 00 00 162 SHAPE4 HEX 100000300000707F01 
616D: 30 00 00 70 7F O01 

6173: 70 3F 03 163 HEX 703F03707F07 

6176: 70 7F 07 

6179: 20 00 00 164 SHAPE5 HEX 200000600000607F 03 
617C: 60 00 00 60 7F 03 

6182: 60 7F 06 165 HEX 607F06607FOF 

6185: 60 7F OF 

6188: 40 00 00 166 SHAPE6 HEX 400000400100407F07 
618B: 40 01 00 40 7F 07 

6191: 40 7F OD 167 HEX 407F0D407F1F 

6194: 40 7F 1F 

6197: 00 01 00 168 SHAPE7 HEX 000100000300007F OF 
619A: 00 03 00 00 7F OF 

61A0: 00 7F 1B 169 HEX 007F1B007F 3F 

61A3: 00 7F 3F 


HI 
LO 


806 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B LINE =$6003 LINEA =$6004 
BYTE =$6005 DEPTH  =$6006 XCOUNT =$6007 SHPNO  =$6008 
DELAY =$6009 TEMP =$600A SHPADR =$6019 PGM =$6027 
CLR1 =$603B CLR =$603F START  =$6051 START1 =$6054 
START2 =$6059 INITIAL =$607C LOADSHP =$608E LOADSHP 1=$609F 
DRAW =$60AA DRAW1 =$60AF ERASE  =$60EE ERASE] =$60F6 
SHAPE1 =$613D SHAPE2 =$614C SHAPE3 =$615B SHAPE4 =$616A 
SHAPES =$6179 SHAPE6 = =$6188 SHAPE7 =$6197 HI =$61A6 
LO =$6266 GRAPHICS=$C050 MIXOFF =$C052 PAGE1  =$C054 


HIRES  =$C057 WAIT =$FCA8 
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Hi-Res Graphics and Animation Using Assembly Language 


INTERNAL ANIMATION 


rece e OCU COCO CCC iter 


Internal animation refers to movement of parts of a shape as the shape itself 
moves (or doesn’t move) around the screen. For example, if we’re moving a 
person shape around, we might want to move his (her) arms and legs to simu- 
late walking or running. This is exactly what we're going to do in the next 
program (5-5). 

The trick to internal animation is simply to have different shape tables dis- 
playing various parts of the shape in different positions. This can be done with 
any type of general movement—vertical, horizontal, diagonal, or curved—or even 
if the shape is standing still, but it is applied most naturally to horizontal move- 
ment, because such movement requires different shape tables anyway. Program 
5-5 is virtually identical to Program 5-1 except that the shape is now a person 
and the seven shape tables display arms and legs in different positions. When 
these shapes are displayed sequentially, the illusion of walking is produced. The 
only other change is that a line is drawn along the bottom of the screen (see 
lines 55 to 65) at screen line #$B7 (decimal 183) so that the person has some- 
thing to walk on. You could omit the line and have the person walk on air (with 
a smile on his/her face?), but both the line and the shape tables are going to be 
incorporated into the final game program, so let’s leave it the way it is. Here are 
the seven shapes for Program 5-5. (One minor note: one arm is shown pointing 
up and not moving—this is the arm that carries the gun with which the person is 
going to shoot at airplanes—who said game designs have to make sense?) 

At first glance, it might seem that these shape tables violate the rule of hav- 
ing an extra shape byte in the direction of movement. However, if the shape 
extends only one bit into the last byte, this is okay because there is room for all 
seven shapes in the last byte and an extra shape byte is not needed (see shape 
6). We could have drawn the shapes over to the left, thus presenting the more 
usual type of shape tables, but the reason for not doing so is that drawing shapes 
this way makes it easier to align the fired bullet with the upraised arm, as we'll 
see in the next chapter. 

The principle of internal animation is simple, but the application often is not 
because greater demands are placed on the artistic talents of the programmer. 
Even the crude animation of Program 5-5 required much time drawing and re- 
drawing until I could stop the arms from flapping and keep the legs from placing 
themselves in anatomically impossible positions. Thank goodness for shape 
tables—they make this kind of tinkering much easier than if the shape bytes were 
dispersed throughout the draw routines. 

You may envy, and with good reason, the type of internal animation found in 
some commercial game programs. I’m thinking specifically of Olympic Decath- 
lon, which displays athletes running, jumping hurdles, throwing the javelin, and 
pole vaulting in exquisite silhouettes. These shapes almost surely were derived 
from photographs of athletes in action and transferred to the computer screen 
by talented artists, perhaps working with graphic utility programs on mainframe 
computers in Apple II simulation mode. But don’t despair. I myself, devoid of the 
tiniest artistic talent, have successfully transferred complicated shapes from 
photographs by tracing the shape onto graph paper and filling in the dots. I even 
managed, at one time, to write a program displaying unicorns galloping across 
the screen, complete with heads bobbing and tails flapping. If I can do this, there 
is hope for anyone. 
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Shape Number | 1 248 12 4|1 2481 2 a1 2481 2 4 | Shape Tables 
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]PROGRAM 5-5 


: ASM 


=H 


*1 SHAPE HORIZONTAL - INTERNAL ANIMATION 
ORG $6000 
JMP PGM 


*2 BYTES WIDE,13 LINES DEEP 


6000: 4C 3F 60 


DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 


GRAPHICS 
MIXOFF 


OmANMATMOWOr OO 
MOWWOM OD FA Att Ate 
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6031: 
6032: 
6033: 
6034: 
6035: 
6036: 
6037: 
6038: 
6039: 
603A: 
603B: 
603C: 
603D: 
603E: 
603F: 
6042: 
6045: 
6048: 
604B: 
604D: 
604F: 
6051: 
6053: 
6055: 


6057: 
6059: 
605A: 
605C: 
605E: 
6060: 
6062: 
6064: 
6066: 
6069: 
606B: 
606D: 
6070: 
6072: 
6075: 
6077: 
6079: 
607B: 
607C: 
607E: 


6080: 
6083: 
6085: 
6088: 
608B: 
608E: 
6091: 
6094: 
6097: 
609A: 
609D: 
609F: 
60A1: 


co 
co 
co 
co 


WAIT = $FCA8 
*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
*CONTINUE FOR ALL 7 SHAPES 
SHPADR DFB- #<SHAPE1 
DFB #>SHAPE1 
DFB #<SHAPE2 
DFB #>SHAPE2 
DFB #<SHAPE3 
DFB #>SHAPE3 
DFB #<SHAPE4 
DFB #>SHAPE4 
DFB #<SHAPE5 
DFB #>SHAPE5 
DFB #<SHAPE6 
DFB #>SHAPE6 
DFB #<SHAPE7 
DFB #>SHAPE7 
PGM LDA GRAPHICS — ;HIRES,P.1 
LDA MIXOFF 
LDA HIRES 
LDA PAGE1 
LDA #$00 sCLEAR SCREEN 1 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY #$00 
LDA #$00 


CLR STA (LOW) ,Y 
INY 
BNE CLR 
INC HIGH 
LDA HIGH 
CMP #$40 
BLT CLR1 
LDA #$60 ;LOAD DELAY 
STA DELAY 
LDX #$B7 ;DRAW LINE 
LDY #$00 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDA #$7F 
LN STA (LOW),Y 
INY 
CPY #$27 
BLT LN 
KkKKKKKKKK MAIN PROGRAM KkKKKKKKKK 
START JSR INITIAL SET INITIAL BYTE, LINE, DEPTH 
START! LDA #$00 ;FIRST SHAPE NUMBER 


STA SHPNO 
START2 JSR _ LOADSHP 3LOAD SHAPE INTO TEMP 
JSR DRAW ; DRAW 
LDA DELAY ;DELAY 
JSR WAIT 
JSR DRAW ;ERASE 
INC SHPNO ;NEXT SHAPE NUMBER 
LDA SHPNO 
CMP #$07 sFINISHED ALL 7 SHAPES? 


BLT START2 31F NO, CONTINUE WITH NEXT SHAPE 
INC BYTE ;1F YES, NEXT BYTE 


Bs 


Zs 


60A4: 
60A7: 
60A9: 
60AB: 


60AE: 
60B0: 
60B3: 
60B5: 
60B8: 
60BB: 
60BC: 
60BE: 
60C1: 


60C2: 
60C5: 
60C6: 
60C7: 
60CA: 
60CC: 
60CF: 
60D1: 
60D3: 
60D5: 
60D8: 
60D9: 
60DB: 
60DD: 


60DE: 
60E0: 
60E3: 
60E6: 
60E9: 
60EC: 
60EE: 
60F1: 
60F3: 
60F6: 
60F8: 
60FB: 
60FD: 
60FE: 
6100: 
6103: 
6105: 
6106: 
6108: 
610B: 
6100: 
6110: 
6113: 
6116: 
6119: 
611C: 
611F: 
6121: 
6124: 
6127: 
6128: 


139 
140 


LDA BYTE 

CMP #$26 3END OF SCREEN? 

BLT START1 ;IF NO, CONTINUE DRAW 
JMP START 3IF YES, START OVER 


KKKKKKKKKK SUBROUTINES kak KKKKKKK 


INITIAL LDA #$00 
STA BYTE 
LDA #$AA 
STA LINE 
STA LINEA 
CLC 
ADC #$0D sDEPTH OF SHAPE 
STA DEPTH 
RTS 
Kakkk kkk RK 
LOADSHP LDA SHPNO 
ASL 
TAX 
LDA SHPADR,X 
STA LOW 
LDA SHPADR+1,X 
STA HIGH 
LDY #$00 
LOADSHP1 LDA (LOW),Y 
STA TEMP,Y 
INY 
CPY #$27 
BLT LOADSHP1 
RTS 
KkKKKK KKK KK KKK KKK KKK KKK 
DRAW LDA #$00 
STA XCOUNT 
DRAW1  LDY BYTE 
LOX LINE 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDX XCOUNT 
LDA (LOW),Y 
EOR TEMP,X 
STA (LOW),Y 
INY 
LDA (LOW),Y 
EOR TEMP+1,X 
STA (LOW) ,Y 
INY 
LDA (LOW),Y 
EOR TEMP+2,X 
STA (LOW) ,Y 
INC XCOUNT 
INC XCOUNT 
INC XCOUNT 
INC LINE 
LDA LINE 
CMP DEPTH 
BLT DRAW1 
LDA LINEA 


;LOAD SHAPE INTO TEMP 


STA LINE sRESET LINE FOR NEXT CYCLE 


RTS 
SHAPE] HEX 000E01000E01000E01 


POR eR eee eee Eee E EEE EEE EE EEE EEE SHEETS EEE TEESE EEE EEE EEE EEE HESS EEE EE EEE E EES 


ORR e eee e eee e eee eee EEE EEE EEEEEEEEEEEEEEEEEEEESEEEEEEEEEO EEE ESEEE EEE HEE EEE EEE EEee 


612B: 
6131: 
6134: 
613A: 
613D: 
6143: 
6146: 
614C: 
614F: 
6152: 
6158: 
615B: 
6161: 
6164: 
616A: 
616D: 
6173: 
6176: 
6179: 
O17F: 
6182: 
6188: 
618B: 
6191: 
6194: 
619A: 
619D: 
61A0: 
61A6: 
61A9: 
61AF: 
61B2: 
61B8: 
61BB: 
61C1: 
61C4: 
61C7: 
61CD: 
61D0: 
61D6: 
61D9: 
61DF: 
61E2: 
61E8: 
61EB: 
61EE: 
61F4: 
61F7: 
61FD: 
6200: 
6206: 
6209: 
620F: 
6212: 
6215: 
621B: 
621E: 
6224: 
6227: 
622D: 
6230: 


SHAPE2 
02 


00 
00 
00 


SHAPE3 
04 


00 
00 
00 


SHAPE4 
08 


01 
01 
00 


SHAPES 
11 


03 
03 
03 


SHAPE6 
23 


07 
07 
06 


SHAPE7 
47 


OF 
OF 
18 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


004401007F00601F00 
301F00181F00001F00 
001F00001B00403100 


606000 
001C02001C02001C02 


000803007E£01003E00 
003F00403F00003E00 
003E00003600003600 


006300 
003804003804003804 


001006007C03007C00 
007C00007E00007C00 
003800003800006C00 


004601 
007008007008007008 


00200C007807007801 
007801007801007801 
007000007000007000 


007000 
006011006011006011 


00401800700F007003 
007003007803007003 
006001006001003003 


001806 
004023004023004023 


00003100601F006007 
007007007807006007 
00600 7006006006006 


00300C 
00004700004 7000047 


00006200403F00700F 
00580F 004COF00400F 
00400F 004000006018 
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6236: 00 30 30 174 HEX 003030 
HI 
LO 
953 bytes 
Symbol table - numerical order: 
LOW =$1A HIGH =$1B LINE =$6003 LINEA 
BYTE =$6005 DEPTH =$6006 XCOUNT =$6007 SHPNO 
DELAY +=$6009 TEMP =$600A SHPADR =$6031 PGM 
CLR1 =$6053 CLR =$6057 LN =$6079 START 
START1 =$6083 START2 =$6088 INITIAL =$60AE LOADSHP 
LOADSHP1=$60D3 DRAW =$60DE DRAW1 =$60E3 SHAPE1 
SHAPE2 =$614F SHAPE3 =$6176 SHAPE4 =$619D SHAPE5 
SHAPE6 =$61EB SHAPE7 =$6212 HI =$6239 LO 
GRAPHICS=$C050 MIXOFF =$C052 PAGEl  =$C054 HIRES 


WAIT =$FCA8 


One final note before leaving this chapter. The line drawing routine in Pro- 
gram 5-5 (lines 55-65) works okay, but there is a faster way to do it. Consider 
the routine from the program: 


LDA #$7F 

LN STA (LOW),Y 
INY 
CPY #$27 
BLT LN 


Now consider the following routine, which draws the same line: 


LDY #$27 
LDA #$7F 

LN STA (LOW),Y 
DEY 
BPL LN 


BPL (Branch on PLus) executes a branch if the result of an operation is in the 
range of #$00 to #$7F. Thus, the branch is taken until Y is decremented to #$FF. 
In both cases, a line is drawn from screen byte positions #$00 to #$27, but in the 
second case, the loop is shorter by one instruction because no comparison is 
done within the loop. This routine, however, while faster, is not as versatile as 
the first for two reasons: first, it works only if we wish a register to go to zero 
(or to #$01 if we use BNE LN)—it cannot be used to draw the line from screen 
byte #$27 to #$05, for example, and second, the loop cannot be initialized with a 
value greater than #$7F—this routine for example would not work in the 
LOADSHP subroutine if the shape were larger than #$7F. Nevertheless, I mention 
it because it is an example of good programming technique and while I use the 
more versatile routine in the programs in this book, the second routine should 
be kept in mind for program optimization where applicable. 


Congratulations! You have now learned the basic principles of hi-res drawing 
and animation. With this knowledge you now should be able to draw any shape 
and move it around the screen, even in complicated paths (by changing line 
positions and screen bytes at the same time instead of just one or the other). 
This knowledge in itself provides you with a powerful tool for a wide variety of 
applications. The remaining chapters in Part One will deal with aspects of game 
design and construction together with techniques of more general applicablity 
such as animating multiple shapes discussed in Chapter 6. The chapters in Part 
Two discuss other aspects of hi-res animation applicable to both game programs 


and any other type of program where hi-res animation would be useful. 


=$6004 
=$6008 
=$603F 
=$6080 
=$60C2 
=$6128 
=$61C4 
=$62F9 
=$C057 


Pirddle and Joystick 
Controls and Muttiple Shapes 


How’s this for a bit of twaddle— 

Try moving a duck shape with a paddle. 
If your hand is unsteady 

The duck will, are you ready? 

Move with a quite pronounced waddle. 


| ‘ hat would a game be without a joystick or paddles? A game without a 
joystick or paddles. Take my keyboard, please. Seriously folks, some games use 
the keyboard to control shape movement and initiate actions such as shooting 
bullets, but joystick or paddle controls are much easier to use and are more 
entertaining—that’s why they exist and why most game programs utilize them. In 
this chapter we’re going to see how to use these hand controls to control verti- 
cal and horizontal movement and how to use the “firing” buttons. We’re also 
going to discuss the not insignificant problem of how to display two different 
moving shapes at the same time. Most of the routines in this chapter will be used 
in the final game program. 


PADDLE AND JOYSTICK CONTROLS 


SOO e eee re er eee eee eeaeeeeeseeeeesseeeeeesseestes 


Paddles have rotary knobs and come in sets of two, paddle 0 and paddle 1, 
each with its own “firing” button. A joystick combines both paddles into a single 
instrument—the two joystick buttons are equivalent to the paddle buttons. Thus, 
joysticks and paddles can be used interchangeably although finer control is 
afforded by paddles. By choosing the appropriate instructions, one can access 
either paddle 0 or paddle 1 (equivalent to joystick left-right or forward-back ) or 
either button. When using a joystick, it doesn’t make any difference which but- 
ton is chosen but with paddles, one should choose the button appropriate to the 
paddle— using paddle 0 with button 1 or paddle 1 with button 0 would require a 
certain amount of dexterity certain not to be appreciated by the program’s user. 

“Reading” a paddle or joystick (i.e., determining the position of the knob or 
stick) fortunately is made easy by accessing a built-in Apple II subroutine located 
at memory address $FB1E, which is labelled PREAD in our programs. The 
number of the hand control you want to access is placed in the X register and a 
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JSR PREAD then returns a number from 0 to 255 (#800 to #$FF) in the Y regis- 
ter, the particular number depending on the hand control position. Thus: 


LDX #$00 Read paddle 0 (stick left-right ) 
JSR PREAD Returns 0-255 in Y register 


LDX #$01 Read paddle 1 (stick forward-back) 
JSR PREAD Returns 0-255 in Y register 


The number in Y can then be manipulated to select screen byte for horizontal 
movement or line for vertical movement (more about this soon). 

To test whether a button is pressed or not requires only reading soft 
switches, $C061 for button 0 and $C062 for button 1. In conjunction with the 
opcode BMI (Branch on Minus), the branch is taken if the button is pressed and 
not taken if the button is not pressed. Thus: 


LDA $C061 
BMI CONT _ If button 0 is pressed, branch to CONT 
RTS 

CONT JSR DRAW 


LDA $C062 
BMI CONT _ If button 1 is pressed, branch to CONT 
RTS 

CONT JSR DRAW 


That’s all there is to it! Let’s see now how we can adapt these routines to 
moving shapes around the screen (for convenience, from now on I will use the 
term paddle to refer to both paddle and joystick). 


PADDLE CONTROL OF VERTICAL MOVEMENT 
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The next program (Program 6-1) is essentially identical to Program 4-2 
(moving a spaceship vertically), except now we're going to control the space- 
ship’s vertical movement by paddle 1. Let’s examine Program 6-1 in some detail. 

First, in the beginning of the program, we define $FB1E as PREAD. Then, in 
the MAIN PROGRAM, we go to the INITIAL subroutine to set the screen byte. 
We do not set the line position here because LINE will be determined by the 
paddle position and we do not set DEPTH here either, as DEPTH depends on 
LINE. The next instruction sends the program to the PDLE subroutine—it is here 
that we read paddle 1 and return a value of 0-255 in the Y register (LDX #801, 
JSR PREAD), and we’re going to use the value in Y to set the line position. 
However, as there are only 192 screen lines (0-191), we first have to clip the 
maximum value in Y to keep the shape on the screen. Because the shape is 
6 lines deep and is drawn from the top line down, the maximum line position 
we want in LINE is 186 (#$BA)—the shape will then be drawn from lines 186 to 
191. The instructions in lines 63 to 67 accomplish the clipping. We compare the 
value in Y to 187 (#$BB) and if it less than this, we store the value in Y in LINE. 
If it is equal to or greater than 187, we store the value 186 (#$BA) in Y and then 
store Y in LINE (LDA #$BA, TAY [Transfer A to Y], STY LINE). Thus, no matter 
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what the paddle position, LINE will not contain a value greater than 186 and this 
keeps the shape on the screen. 

We then go back to the MAIN PROGRAM and jump to the DEP subroutine 
which stores LINE in LINEA and also sets DEPTH—remember that while the 
shape depth is a constant, the value in DEPTH depends on the value in LINE. 
Back in the MAIN PROGRAM, we draw the shape with JSR DRAW, delay, and 
erase with JSR DRAW (we're using the DRAW-ERASE protocol). The next 
instruction sends the program back to PADDLE for another paddle read and we 
continue in this loop, continually updating LINE from the paddle position. 


DISPLAY AND 
CLEAR SCREEN 
SET SCREEN 
BYTE POSITION 


READ PADDLE — CLIP VALUE TO 
0-186 AND STORE IN LINE 


SET LINEA 
AND DEPTH 


91 


JPROGRAM 6-1 
: ASM 


1 *0NE SHAPE VERTICAL CONTROLLED BY PADDLE* 
2 KKKKKKEKKKKKKKKKK KKK KKK KK KKK 
3 *SHAPE IS 1 BYTE WIDE BY 6 BYTES DEEP 
4 KKKKKKEKKKKKKKKK KKK KK KKK KKK 
5 ORG $6000 
6000: 4C 09 60 6 UMP PGM 
7 XCOUNT DS 1 
8 BYTE os 
9 LINE BS. (31 
10 LINEA DS 1 
11 DEPTH ODS 1 
12 DELAY DS 1 
13. GRAPHICS = _— $C050 
14 MIXOFF =  $C052 
15 HIRES = — $C057 
16 PAGEL =  $C054 
17 HIGH = $18 
18 LOW = $1A 
19 WAIT = — $FCA8 
20 PREAD =  $FBIE 
6009: AD 50CO 21 PGM LDA GRAPHICS ;HIRES,P.1 


600C: AD 52 CO 22 LDA MIXOFF 


600F: AD 57 CO 23 LDA HIRES 
6012: AD 54 CO 24 LDA PAGE1 
6015: A9 00 25 LDA #$00 ;CLEAR SCREEN 1 
6017: 85 1A 26 STA LOW 
6019: AY 20 27 LDA #$20 
601B: 85 1B 28 STA HIGH 
601D: AO 00 29 =CLRI LDY #$00 
601F: A9 00 30 LDA #$00 
6021: 91 1A 31 CLR STA (LOW),Y 
6023: C8 32 INY 
6024: DO FB 33 BNE CLR 
6026: £6 1B 34 INC HIGH 
6028: A5 1B 35 LDA HIGH 
602A: C9 40 36 CMP #$40 
602C: 90 EF 37 BLT CLR1 
602E: AQ 40 38 LDA #$40 ;LOAD TIME DELAY 
6030: 8D 08 60 39 STA DELAY 
40 Kak KKKKKKK MAIN PROGRAM KkkKkKK KKK 
6033: 20 4B 60 41 JSR INITIAL ;SET SCREEN BYTE 
6036: 20 5E 60 42 PADDLE JSR PDLE 3READ PADDLE 1 
6039: 20 51 60 43 JSR DEP 3SET DEPTH 
603C: 20 6E 60 44 JSR DRAW ;DRAW 
603F: AD 08 60 45 LDA DELAY 
6042: 20 A8 FC 46 JSR WAIT ;DELAY 
6045: 20 6E 60 47 JSR DRAW ;ERASE 
6048: 4C 36 60 48 JMP PADDLE 3READ PADDLE AGAIN 


49 A SUBROUTINES ak 
604B: AQ 10 50 INITIAL LDA #$10 


604D: 8D 04 60 51 STA BYTE 3SET STARTING BYTE 
6050: 60 52 RTS 
53 KKKKKKKKKKKKK KK KK KK KK KKK 
6051: AD 05 60 54 DEP LDA LINE ;SET DEPTH 
6054: 8D 06 60 55 STA LINEA 
6057: 18 56 CLC 
6058: 69 06  —-57 ADC #$06 
605A: 8D 07 60 58 STA DEPTH 
605D: 60 59 RTS 
60 KRKKKKEKKKKKKKKKKK KKK 
605E: A201 61 PDLE  LDX #$01 sREAD PADDLE 1 
6060: 20 1E FB 62 JSR PREAD 30-255 IN Y 
6063: CO BB s«63 CPY #$BB ;CLIP TO 0-186 
6065: 9003 64 BLT CONT 
6067: A9 BA 65 LDA #$BA 
6069: A8 66 TAY 
606A: 8C 05 60 67 CONT — STY LINE 50-186 IN LINE 
606D: 60 68 
69 KRKKKKEKKKKKKKKKKKKKKKK 
606E: A900 70 DRAW LDA #$00 
6070: 8D 03 60 71 STA XCOUNT ;ZERO XCOUNT 
6073: AC 04 60 72 DRAW! LDY BYTE ;LOAD BYTE 
6076: AE 05 60 73 LDX LINE ;LOAD LINE 
6079: BD A8 60 74 LDA HI,x ;LOAD LINE ADDRESS INTO HIGH,LOW 
607C: 85 1B = 75 STA HIGH 
607E: BD 68 61 76 LDA LO,X 
6081: 85 1A 77 STA LOW 
6083: AE 03 60 78 LDX XCOUNT — ;LOAD X WITH XCOUNT 
6086: BL 1A 79 LDA (LOW),Y  ;GET BYTE FROM SCREEN 
6088: 5D A2 60 80 EOR SHAPE,X  ;E0R BYTE FROM SHAPE ADDRESS+X 
6088: 91 1A — 81 STA (LOW),Y | ;PLOT BYTE 
608D: EE 03 60 82 INC XCOUNT 


6090: EE 05 60 83 INC LINE sNEXT LINE 
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6093: AD 05 60 84 LDA LINE 

6096: CD 07 60 85 CMP DEPTH sFINISH SHAPE? 

6099: 90 D8 86 BLT DRAW1 ;1F NO, DRAW NEXT LINE 
609B: AD 06 60 87 LDA LINEA ;IF YES, RESET LINE AND 
609E: 8D 05 60 88 STA LINE DRAW NEXT CYCLE 
60A1: 60 89 RTS 


60A2: 08 1C 22 90 SHAPE HEX 081C223E227F ;SHAPE TABLE 
60A5: 3E 22 7F 

HI 

LO 


552 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B XCOUNT =$6003 BYTE = $6004 
LINE =$6005 LINEA =$6006 DEPTH =$6007 DELAY =$6008 
PGM =$6009- CLR1 =$601D CLR =$6021 PADDLE =$6036 
INITIAL =$604B DEP =$6051 PDLE =$605E CONT =$606A 
DRAW =$606E DRAW1 =$6073 SHAPE  =$60A2 HI =$60A8 
LO =$6168 GRAPHICS=$C050 MIXOFF =$C052 PAGEl  =$C054 
HIRES  =$C057 PREAD =$FBIE WAIT =$FCA8 
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In contrast to paddle control of vertical movement where we specify a par- 
ticular screen byte position and use a paddle read to select the line position, 
paddle control of horizontal movement involves specifying a particular line posi- 
tion and using the paddle read to select the screen byte position. However, as 
you might suspect, things are not always that simple with horizontal movement. 
Remember that in horizontal movement, each screen byte can contain one of 
seven shapes. Therefore, we not only have to specify the screen byte position by 
a paddle read, but also which shape is to be drawn. Specifying shapes was rela- 
tively easy in previous programs because we started with the first shape and then 
accessed the other shapes sequentially. With a paddle read, shape and screen 
byte selection is accomplished by the use of look-up tables. We’ll see how this is 
done in the next program (Program 6-2), which is based on Program 5-5, the 
horizontal movement of a person shape with internal animation (Program 6-2 
will be incorporated into the final game program). 

In Program 6-2, we’re going to use the same shape tables and the line for the 
person to walk on as Program 5-5 and we’re going to control horizontal move- 
ment by paddle 0. In the MAIN PROGRAM, we first go to the INITIAL subroutine 
to set LINE and DEPTH. Then we jump to the PDLE subroutine, which reads 
paddle 0 and returns a value of 0-255 in the Y register. 

We first want to convert the value in Y to a screen byte position. We do this 
by the instruction LDA BYTETBL,Y (line 85) where BYTETBL is a table consist- 
ing of 37 lines of 7 bytes each, 7 #$00’s, 7 #$01’s, 7 #$02’s, etc., up to 7 #$24’s. 
A screen byte from 0 to 36 is selected, depending on the value in Y; i.e., 
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Value in Y Screen Byte 
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0-6 0 
7-13 1 
14-20 2 
21-27 3 
245-251 35 
252-255 36 


The screen byte obtained is then stored in HORIZ (line 86), which will be 
used in the draw routine to denote the screen byte position. Note that we are 
accessing only 37 (0-36) screen bytes even though 40 (0-39) are available. This 
is because Y can contain a maximum value of 255 and, to access all 40 screen 
bytes, a value of 280 would be needed (40 X 7). We could make the BYTETBL 
shorter by storing, for example, 6 bytes per line for 40 lines, but there is a reason 
for having 7 bytes per line as we'll soon see (if you think this is related to 7 
shapes per screen byte, you’re right). There are ways to access the extra bytes at 
the end of the screen, but this would present an unnecessary complication as 
you would see by running the program—the inability of the shape to move into 
the last few bytes at the end of the screen is hardly noticeable. The shape can be 
centered by adding an offset to the byte position so that, for example, bytes 1-38 
would be selected, but this is not necessary in our program. 

Now that we have the screen byte, we want to specify which of the seven 
shapes to draw. This is accomplished by using another look-up table. The 
instruction in line 87 (LDA OFFSET,Y) accesses the table labelled OFFSET 
which, like BYTETBL, also contains 37 lines of 7 bytes each. But, here, each line 
contains the same bytes, #$00 to #$06. The value in Y selects a shape number, 
0 to 6; i.e.: 


Value in Y Screen Byte Shape Number 


Seer eeeeeeeees = —=§«_—-_ eee eeeeeeeeees = =—«§«-_«-_— eee eee eeeeeeeeeee 


0 0 0 

1 0 1 

2 0 2 

3 0 3 

4 0 4 

5 0 5 

6 0 6 

if 1 0 

8 1 1 

9 1 2 
10 1 3 
11 1 o 
12 1 5 
13 1 6 
14 2 0 
252 36 0 
253 36 1 
254 36 2 
255 36 3 
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The instruction LDA OFFSET,Y loads the Accumulator with a shape number and 


the rest of the PDLE subroutine loads the shape into TEMP using the same 
instructiGns we’ve seen in Chapter 5. The program then draws the shape, delays, 
erases, and loops back to PADDLE to update the horizontal position continually. 
The DRAW routine is the same as in previous programs except that Y is loaded 
with the value in HORIZ instead of BYTE (BYTE is simply not used in this 


LOAD SHAPE ADDRESSES 
INTO SHPADR 
DISPLAY AND CLEAR SCREEN 

SET LINE AND DEPTH 


READ PADDLE AND GET SCREEN 
BYTE FROM BYTETBL AND SHAPE 


program). 


]PROGRAM 6-2 
: ASM 


6000: 4C 3E 60 


WOONDNHPWNMHE 


NUMBER FROM OFFSET 


*PADDLE OR JOYSTICK CONTROL OF HORIZONTAL MOVEMENT 
*2 BYTES WIDE, 13 LINES DEEP 


ORG $6000 
JMP GM 
LINE DS 1 
LINEA DS 1 
DEPTH DS 1 
HORIZ DS 1 
XCOUNT DS 1 


DELAY DS: 1 
TEMP DS 39 


GRAPHICS = $C050 
MIXOFF = $C052 
HIRES = $C057 
PAGE1 = $C054 
HIGH = $1B 

LOW a $1A 

WAIT = $FCA8 
PREAD = $FB1E 


LOAD SHAPE INTO TEMP 


*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 


*CONTINUE FOR ALL 7 SHAPES 


Bs 


Hs 


6030: 
6031: 
6032: 
6033: 
6034: 
6035: 
6036: 
6037: 
6038: 
6039: 
603A: 
603B: 
603C: 
603D: 
603E: 
6041: 
6044: 
6047: 
604A: 
604C: 
604E: 
6050: 
6052: 
6054: 
6056: 
6058: 
6059: 
605B: 
605D: 
605F: 
6061: 
6063: 
6065: 
6068: 
606A: 
606C: 
606F : 
6071: 
6074: 
6076: 
6078: 
607A: 
607B: 
607D: 


607F: 
6082: 
6085: 
6088: 
608B : 
608E: 
6091: 


6094: 
6096: 
6099: 
609C: 
609D: 
609F: 
60A2: 


co 
co 
co 
co 


SHPADR DFB_ #<SHAPE1 
DFB #>SHAPE1 
DFB #<SHAPE2 
DFB #>SHAPE2 
DFB #<SHAPE3 
DFB #>SHAPE3 
DFB #<SHAPE4 
DFB #>SHAPE4 
DFB #<SHAPES 
DFB #>SHAPE5 
DFB #<SHAPE6 
DFB #>SHAPE6 
DFB #<SHAPE7 
DFB #>SHAPE7 
PGM LDA GRAPHICS — ;HIRES,P.1 
LDA MIXOFF 
LDA HIRES 
LDA PAGE1 
LDA #$00 sCLEAR SCREEN 1 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY #$00 
LDA #$00 
CLR STA (LOW),Y 
INY 
BNE CLR 
INC HIGH 
LDA HIGH 
CMP #$40 
BLT CLR1 
LDA #$60 ;LOAD DELAY 
STA DELAY 
LDX #$B7 ;DRAW LINE 
LDY #$00 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDA #$7F 
LN STA (LOW),Y 
INY 
CPY #$27 
BLT LN 
KkKKKKKKKK MAIN PROGRAM KKKKKKKKKK 
JSR INIT 3;SET LINE & DEPTH 
PADDLE JSR PDLE ;READ PADDLE 0 
JSR DRAW ;DRAW 
LDA DELAY 
JSR WAIT ;DELAY 
JSR DRAW 3ERASE 
JMP PADDLE 3;READ PADDLE AGAIN 
KKKKKKKKKK SUBROUTINES KaKKKKKKKK 
INIT LDA #$AA 
STA LINE 
STA LINEA 
CLC 
ADC #$0D 
STA DEPTH 


KKKKKKKKKKKKKKKKKKKKKKK 
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60A3: 
60A5: 
60A8: 
60AB: 
60AE: 
60B1: 
60B2: 
60B3: 
60B6: 
60B8: 
60BB: 
60BD: 
60BF : 
60C1: 
60C4: 
60C5: 
60C7: 
6009: 


60CA: 
60CC: 
60CF: 
6002: 
60D5: 
60D8: 
60DA: 
60DD: 
60DF : 
60E2: 
60E4: 
60E7: 
60E9: 
60EA: 
60EC: 
60EF: 
60F1: 
60F2: 
60F4: 


PDLE LDX 
JSR 
LDA 
STA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
CPY 
BLT 
RTS 
KEKKKKKEKEKKEKEKKKKKKKKEKKKK 
DRAW LDA #$00 

STA XCOUNT 

LDX LINE 

LDY HORIZ 

LDA HI,X 

STA HIGH 

LDA LO,X 

STA LOW 

LDX XCOUNT 
LDA (LOW) ,Y 
EOR TEMP,X 

STA (LOW),Y 
INY 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 
HEX’ 


#$00 
PREAD 
BYTETBL,Y 
HORIZ 
OFFSET,Y 


SHPADR, X 
LOW 
SHPADR+1 ,X 
HIGH 

#$00 
(LOW) ,Y 
TEMP ,Y 


LOAD 


#$27 
LOAD 


DRAW1 


(LOW) ,Y 
TEMP+1 ,X 
(LOW) ,Y 


(LOW) ,Y 
TEMP +2 , X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
LINE 
LINE 
DEPTH 
DRAW1 
LINEA 
LINE 


SHAPE1 
01 

HEX 
00 

HEX 


HEX 
00 
HEX 
HEX 


606000 
SHAPE2 
02 

HEX 


000E01000E01000E01 
004401007F00601F00 
301F00181F00001F00 
001F00001B00403100 


001C02001C02001C02 
000803007E01003E00 


sREAD PADDLE 0 
;CONVERT TO SCREEN BYTE (0 - 36) 


;GET SHAPE NUMBER 
3;LOAD SHAPE INTO TEMP 


sRESET LINE 


;SHAPE TABLES 
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61F2: 
61F5: 
61FB: 
61FE: 
6201: 
6207: 
620A: 
6210: 
6213: 
6219: 
621C: 
6222: 
6225: 
6228: 
622C: 
622F: 
6233: 
6236: 
623A: 
623D: 
6241: 
6244: 


SHAPE3 
04 


00 
00 
00 


SHAPE4 
08 


01 


03 


SHAPE6 
23 


SHAPE7 
47 


BYTETBL 


HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 
HEX 
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003F00403F00003E00 
003E00003600003600 


006300 
003804003804003804 


001006007C03007C00 
007C00007E00007C00 
003800003800006C00 


004601 
007008007008007008 


00200C007807007801 
007801007801007801 
007000007000007000 


007000 
006011006011006011 


00401800700F 007003 
007003007803007003 
006001006001003003 


001806 
004023004023004023 


00003100601F 006007 
007007007807006007 
006007006006006006 


00300C 
00004700004 7000047 


00006200403F00700F 
00580F 004COF00400F 
00400F 004000006018 


003030 
00000000000000 


01010101010101 
02020202020202 
03030303030303 
04040404040404 
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6248: 
624B: 
624F: 
6252: 
6256: 
6259: 
625D: 
6260: 
6264: 
6267: 
626B: 
626E: 
6272: 
6275: 
6279: 
627C: 
6280: 
6283: 
6287: 
628A: 
628E: 
6291: 
6295: 
6298: 
629C: 
629F: 
62A3: 
62A6: 
62AA: 
62AD: 
62B1: 
62B4: 
62B8: 
62BB: 
62BF: 
62C2: 
62C6: 
62C9: 
62CD: 
62D0: 
62D4: 
62D7: 
62DB: 
62DE: 
62E2: 
62E5: 
62E9: 
62EC: 
62F0: 
62F3: 
62F7: 
62FA: 
62FE: 
6301: 
6305: 
6308: 
630C: 
630F: 
6313: 
6316: 
631A: 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


05050505050505 
06060606060606 
07070707070707 
08080808080808 
09090909090909 
OAOAOAODADAOADA 
OBOBOBOBOBOBOB 
ocococococococ 
ODODODODODODOD 
OEQEOEQEOEOEOE 
OFOFOFOFOFOFOF 
10101010101010 
11111111111111 
12121212121212 
13131313131313 
14141414141414 
15151515151515 
16161616161616 
17171717171717 
18181818181818 
19191919191919 
1A1A1AIAIAIAI1A 
1B1B1B1B1B1B1B 
1€1C1C1C1C1C1C 
1D1D1D1D1D1D1D 
1ELELELE1ELELE 
1FIFIFIF1F1F1F 
20202020202020 
21212121212121 
22222222222222 
23232323232323 
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Bs 


100 


631D: 
6321: 
6324: 
6328: 
632B: 
632F: 
6332: 
6336: 
6339: 
633D: 
6340: 
6344: 
6347: 
634B: 
634E: 
6352: 
6355: 
6359: 
635C: 
6360: 
6363: 
6367: 
636A: 
636E: 
6371: 
6375: 
6378: 
637C: 
637F: 
6383: 
6386: 
638A: 
638D: 
6391: 
6394: 
6398: 
639B: 
639F: 
63A2: 
63A6: 
63A9: 
63AD: 
63B0: 
63B4: 
63B7: 
63BB: 
63BE: 
63C2: 
63C5: 
63C9: 
63CC: 
63D0: 
63D3: 
63D7: 
63DA: 
63DE: 
63E1: 
63E5: 
63E8: 
63EC: 
63EF: 


OFFSET 


HEX 


HEX 
HEX 
HEX 
HEX 


oe eee eee ee eee eee eee eee eee eee cere eee e ee ere eee ee eee eee eee ere sy 


24242424242424 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
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63F3: 00 01 02 233 HEX 00010203040506 
63F6: 03 04 05 06 
63FA: 00 01 02 234 HEX 00010203040506 
63FD: 03 04 05 06 
6401: 00 01 02 235 HEX 00010203040506 
6404: 03 04 05 06 
6408: 00 01 02 236 HEX 00010203040506 
640B: 03 04 05 06 
640F: 00 01 02 237 HEX 00010203040506 
6412: 03 04 05 06 
6416: 00 01 02 238 HEX 00010203040506 
6419: 03 04 05 06 
641D: 00 01 02 239 HEX 00010203040506 
6420: 03 04 05 06 
6424: 00 01 02 240 HEX 00010203040506 
6427: 03 04 05 06 

HI 

LO 


1451 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B LINE =$6003 LINEA =$6004 
DEPTH =$6005 HORIZ  =$6006 XCOUNT =$6007 DELAY  =$6008 
TEMP =$6009 SHPADR =$6030 PGM =$603E CLR1 =$6052 
CLR =$6056 LN =$6078 PADDLE =$6082 INIT =$6094 
PDLE =$60A3 LOAD =$60BF DRAW =$60CA DRAW1 =$60CF 
SHAPE1 =$6114 SHAPE2 =$613B SHAPE3 =$6162 SHAPE4 =$6189 
SHAPES =$61B0 SHAPE6 =$61D7 SHAPE7 =$61FE BYTETBL =$6225 
OFFSET =$6328 HI =$642B LO =$64EB GRAPHICS=$C050 
MIXOFF =$C052 PAGEL  =$C054 HIRES  =$C057 PREAD =$FBI1E 
WAIT =$FCA8 


Although this won’t be incorporated into the final game, while we’re on the 
subject let’s look at a program that uses the joystick to control vertical and 
horizontal movement at the same time. ( Paddles can also be used, but a joystick 
is more appropriate, allowing a single control to move the shape in any direc- 
tion.) The next program (Program 6-3) uses the joystick to control horizontal 
and vertical movement of the plane shape (so you can practice your takeoffs and 
landings ). The subroutines are exactly as described in the previous programs in 
this chapter, except, of course, for the INITIAL subroutine which isn’t needed, 
with paddle 0 determining the horizontal position and paddle 1, the vertical 
position. The MAIN PROGRAM is simplicity itself— both paddles are read, the 
shape is drawn and erased, and the program loops back for more paddle reads to 
update the shape position. Note, however, that a delay has to be inserted 
between reading each paddle. This is to avoid a phenomenon called paddle cross- 
talk. When PREAD is accessed, a timer starts and Y is incremented until the 
timer goes off. If the first paddle read has a low value, it will return quickly with 
the paddle value in Y, but the timer still continues. If you access PREAD imme- 
diately again, the timer will not have been reset to zero and Y will return with 
improper values. The solution is to insert a delay between paddle reads, which 
can be an artificial delay or some part of the program or both. In Program 6-3, 
there is program code between each paddle read but the delay is not long 
enough and so an artificial delay is inserted. The value chosen, #$20, was simply 
arrived at by trial and error—it works and looks good. 
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LOAD SHAPE ADDRESSES 
INTO SHPADR 
DISPLAY AND CLEAR SCREEN 


READ PADDLE 0 AND GET SCREEN 
BYTE FROM BYTETBL AND SHAPE 
NUMBER FROM OFFSET 


TO 0-186 AND STORE IN LINE 
C 


JPROGRAM 6-3 


: ASM 
1 *JOYSTICK CONTROL OF HORIZONTAL & VERTICAL MOVEMENT 
2 *2 BYTES WIDE, 13 LINES DEEP 
3 ORG $6000 

6000: 4C 26 60 4 JMP PGM 
5 LINE DS 1 
6 LINEA oS. 1 
7 DEPTH DS. 1 
8 HORIZ DS> «1 
9 XCOUNT DS 1 
10 DELAY DS 
11 =TEMP DS 15 
12 GRAPHICS = $C050 
13. MIXOFF = $C052 
14 ~—+HIRES = $C057 
15 ~~ PAGE1 = $C054 
16 HIGH = $1B 
17. ~—+LOW = $1A 
18 WAIT = $FCA8 
19 PREAD = $FB1E 
20 *LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
21  *CONTINUE FOR ALL 7 SHAPES 


6018: F7 22 SHPADR DFB_ #<SHAPE1 
6019: 60 23 DFB #>SHAPE1 
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601A: 
601B: 
601C: 
601D: 
601E: 
601F: 
6020: 
6021: 
6022: 
6023: 
6024: 
6025: 
6026: 
6029: 
602C: 
602F: 
6032: 
6034: 
6036: 
6038: 
603A: 
603C: 
603E: 
6040: 
6041: 
6043: 
6045: 
6047: 
6049: 
604B: 
604D: 


6050: 
6053: 
6055: 
6058: 
605B: 
605E: 
6061: 
6064: 
6067: 


606A: 
606C: 
606F: 
6072: 
6075: 
6078: 
6079: 
607A: 
607D: 
607F: 
6082: 
6084: 
6086: 
6088: 
608B: 
608C: 
608E: 
6090: 
6091: 


co 
co 
co 
co 


60 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
LDA 
LDA 
LDA 
LDA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
BNE 
INC 
LDA 
CMP 
BLT 
LDA 
STA 


PGM 


CLR1 
CLR 


akk KKK KKK MAIN PROGRAM kkk kK KKK 


PADDLE JSR 
LDA 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JMP 


Kkkk kkk KKK SUBROUTINES kkkkkk kek 


PDLEO LDX 
JSR 
LDA 
STA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
CPY 
BLT 
RTS 


PDLE1 LDX 


#<SHAPE2 
#>SHAPE2 
#<SHAPE3 
#>SHAPE3 
#<SHAPE4 
#>SHAPE4 
#<SHAPE5S 
#>SHAPE5 
#<SHAPE6 
#>SHAPE6 
#<SHAPE7 
#>SHAPE7 
GRAPHICS 
MIXOFF 
HIRES 
PAGE1 
#$00 

LOW 

#$20 
HIGH 
#$00 
#$00 
(LOW) ,Y 


CLR 
HIGH 
HIGH 
#$40 
CLR1 
#$60 
DELAY 


PDLEO 
#$20 
WAIT 
PDLE1 
DRAW 
DELAY 
WAIT 
DRAW 
PADDLE 


#$00 
PREAD 
BYTETBL,Y 
HORIZ 
OFFSET,Y 


SHPADR, X 
LOW 
SHPADR+1, X 
HIGH 

#$00 
(LOW), Y 
TEMP,Y 


#$0F 
LOAD 


#$01 


;HIRES,P.1 


;CLEAR SCREEN 1 


;LOAD DELAY 


;READ PADDLE 0 
;CONVERT TO SCREEN BYTE (0 - 36) 


;GET SHAPE NUMBER 
;LOAD SHAPE INTO TEMP 
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6093: 
6096: 
6098: 
609A: 
609C: 
609D: 
60A0: 
60A3: 
60A6: 
60A7: 
60A9: 
60AC: 


60AD: 
60AF : 
60B2: 
60B5: 
60B8: 
60BB: 
60BD: 
60C0: 
60C2: 
60C5: 
60C7: 
60CA: 
60CC: 
60CD: 
60CF: 
60D2: 
60D4: 
60D5: 
60D7: 
60DA: 
60DC: 
60DF : 
60E2: 
60E5: 
60E8: 
60EB: 
60EE: 
60F0: 
60F3: 
60F6: 


60F7: 
60FA: 
6100: 
6103: 
6106: 
6109: 
610F: 
6112: 
6115: 
6118: 
611E: 
6121: 
6124: 
612): 
612D: 
6130: 
6133: 


20 
CO 
90 
A9 
A8 
8C 
AD 
8D 
18 
69 
8D 
60 


AQ 
8D 
AE 
AC 
BD 
85 
BD 
85 
AE 
Bl 
5D 
91 
C8 
Bl 
5D 
91 
C8 
Bl 
5D 
91 
EE 
EE 
EE 
EE 
AD 
CD 
90 
AD 
8D 
60 


02 
06 
7E 
7E 
04 
oc 
7C 
7C 
08 
18 
78 
78 
10 
30 
70 
70 
20 


CONT 


JSR 
CPY 
BLT 
LDA 
TAY 
STY 
LDA 
STA 
CLC 
ADC 
STA 
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PREAD 
#$BB 
CONT 
#$BA 


LINE 
LINE 
LINEA 


#$05 
DEPTH 


KRKEKKKKEKKKKKKKKKKKKK KEKE 


DRAW 
DRAW1 


LDA 
STA 
LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 


#$00 
XCOUNT 
LINE 
HORIZ 
HI,X 
HIGH 
LO,x 
LOW 
XCOUNT 
(LOW),Y 
TEMP , X 
(LOW) ,Y 


(LOW),Y 
TEMP+1, x 
(LOW), Y 


(LOW),Y 
TEMP+2 , X 
(LOW), Y 
XCOUNT 
XCOUNT 
XCOUNT 
LINE 
LINE 
DEPTH 
DRAW1 
LINEA sRESET LINE 
LINE 


HKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


SHAPE1 
00 


SHAPE2 
00 


SHAPE3 
00 


SHAPE4 
01 


SHAPES 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


0200000600007E1F00 
7£37007E7F00 
0400000C00007C3F00 
7C6FO07C7F01 
080000180000787F 00 
785F01787F03 
100000300000707F01 
703F03707F07 
200000600000607F 03 
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6136: 60 00 00 60 7F 03 

613C: 60 7F 06 138 HEX 607F06607FOF 

613F: 60 7F OF 

6142: 40 00 00 139 SHAPE6 HEX 400000400100407F07 
6145: 40 01 00 40 7F 07 

614B: 40 7F OD 140 HEX 407FOD407F1F 

614E: 40 7F 1F 

6151: 00 01 00 141 SHAPE7 HEX 000100000300007F OF 
6154: 00 03 00 00 7F OF 

615A: 00 7F 1B 142 HEX 007F1B007F 3F 

615D: OO 7F 3F 


BYTETBL 
OFFSET 
HI 

LO 


1254 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B LINE =$6003 LINEA =$6004 
DEPTH =$6005 HORIZ =$6006 XCOUNT =$6007 DELAY =$6008 
TEMP =$6009 SHPADR =$6018 PGM =$6026 CLR1 =$603A 
CLR =$603E PADDLE =$6050 PDLEO =$606A LOAD =$6086 
PDLE1 =$6091 CONT =$609D DRAW =$60AD DRAW1 =$60B2 
SHAPE1 =$60F7 SHAPE2 =$6106 SHAPE3 =$6115 SHAPE4 =$6124 
SHAPE5 =$6133 SHAPE6 = =$6142 SHAPE7 =$6151 BYTETBL =$6160 
OFFSET =$6263 HI =$6366 LO =$6426 GRAPHICS=$C050 
MIXOFF =$C052 PAGE1 =$C054 HIRES =$C057 PREAD =$FBI1E 


WAIT =$FCA8 

BYTETBL and OFFSET refer to the tables in Program 6-2. 

Our programs are now getting quite large because of all the tables and we'll 
be using these tables in most of the remaining programs in this book. To save 
yourself a lot of unnecessary typing, do what I do. Load a program that already 
has these tables, and, using the editing features of your assembler, delete every- 
thing you don’t need (you might also want to retain the SHPADR and clear and 
display screen routines). Then insert your new program—another reason for 
choosing an assembler with full editing features. 


MULTIPLE SHAPES—PADDLE CONTROL OF HORIZONTAL 
MOVEMENT AND SHOOTING BULLETS 


This section really consists of two parts, one easy and the other hard. The 
easy part describes how to shoot bullets using the paddle “firing” button. The 
hard part, displaying two moving shapes at the same time, takes us into the real 
nitty-gritty of game design for the first time. The following program, the one that 
incorporates these features (Program 6-4), is simply an addition to Program 6-2; 
the person whose movement we'll control by paddle 0 will be made to shoot 
bullets by pressing button 0. Thus, we have to display and move the bullet shape 
and the person shape at the same time. Program 6-4 is an essential part of the 
final game program so it warrants your close attention. 

Let’s dispense with the easy part first. We'll define the label BUTTON as 
$C061 (button 0). Thus if we do a LDA BUTTON, BMI BULLET, the program will 
branch to BULLET when the button is pressed and not branch when it isn’t 
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pressed. Also, the program is designed so that only one bullet can be fired at a 
time; i.e., a bullet on the screen must go off before the next one can be drawn 
(the program doesn’t have to have this feature but what the heck, why not). We 
accomplish this by reserving a memory location labelled BULON and loading it 
with #$00 when a bullet is not on the screen and with #$01 when one is. Thus 
testing BULON for #$00 or #$01 will tell us the bullet status. 

The bullet shape itself is just a single dot, both for convenience and also 
because it looks fine that way. This simplifies the BTEMP (B for Bullet) loading 
and also the draw routine. For example, a bullet shape is loaded by retrieving the 
shape address and loading its contents directly into BTEMP without the need for 
any counters (see the LOADBUL subroutine ). Also, because the bullet shape has 
a depth of one, the draw routine has no need for XCOUNT, BLINEA, or CMP 
DEPTH; drawing (and erasing) is accomplished simply by LDA (LOW),Y, EOR 
BTEMP, STA (LOW),Y (see the BDRAW subroutine). In addition, because the 
first bullet shape occupies only the first or leftmost bit, the BSHAPE table need 
only consist of one screen byte—there is no need for an extra byte in the direc- 
tion of movement. 

The bullet is drawn moving up eight lines at a time. The reason for this is not 
apparent in Program 6-3 but will be when we incorporate the routine into the 
final game program. The reason is speed. In the game program, we want the 
bullet to move much faster than a plane moving across the screen. The plane and 
bullet move once per drawing cycle and the plane moves in 1-bit increments. 
Moving the bullet up one line at a time, for example, would slow it down so 
much relative to the plane as to detract seriously from whatever simulation of 
realism we hope to achieve. Although eight line moves may not be appropriate 
for most shapes, it works fine with a single dot and the animation simulates a 
fired bullet quite well. 

Finally, we have to test for the bullet reaching the top of the screen, at which 
point it is erased in preparation for the next firing. The bullet starts its screen 
traversal at line #$A4, just above the raised arm of the man. If we keep subtract- 
ing 8 from this value to get to a line position near the top of the screen, the 
nearest line to the top turns out to be 4. Thus, we do a CMP #$05 (line 112); if 
the line position is less than this, we’ve reached the top; if more, we continue 
drawing the bullet. 

So much for the easy part, now for the mind-bender. Designing a compli- 
cated program, such as one that integrates multiple moving shapes, is best done, 
at least in my experience, by paying particular attention to the program flow- 
chart, long before getting into extensive program details (this is always a good 
idea but is especially important for difficult programs). We’ll be examining the 
flowchart for Program 6-4 in detail shortly. A further point regarding multiple 
shape programs, and one alluded to briefly in the bullet section above, is that 
each shape has essentially its own program within a program. For example, in 
Program 6-4, the bullet shape employs BINITIAL, BDRAW, BSHPADR, BHORIZ, 
etc., while the person shape uses its own set of labels and routines such as 
MINITIAL, MDRAW, MHORIZ, etc. (M stands for Man; let’s face it, a man is more 
likely to be firing bullets at passing planes than a woman [a sad commentary?]. In 
any case, P for Person is not used because it is used for Plane in later programs. ) 
The use of these separate routines and labels is a necessity, but a welcome one, 
because they make the program much easier to write and read. 
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Paddle and Joystick Controls and Multiple Shapes 


Remember the principles of animation discussed in previous chapters; i.e.: 


MOVE 


ERASE 


We can modify this for paddle control as follows: 


PADDLE READ 


107 

| x 
DELAY 
ERASE 


When drawing multiple shapes whose movement is controlled by a paddle, 
the diagram looks like this (without paddle control, substitute Move for Paddle ): 


PADDLE READ 


| 


DRAW MAN —————~> DRAW BULLET 


DELAY DELAY 
ERASE MAN ERASE BOTH 


Let’s now examine in detail the flowchart for Program 6-4. 
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LOAD SHAPE ADDRESSES 
INTO SHPADR 
DISPLAY AND 
CLEAR SCREEN 


MINITIAL — SET 
LINE AND DEPTH 


BINITIAL — SET LINE 
AND BULLET OFF 
(BULON = 0) 


SET BHORIZ = MHORIZ 


SET BULLET ON 
(BULON = 1) 


DRAW BULLET 


ERASE MAN 
ERASE MAN 
AND BULLET 
MOVE BLINE 
UP 8 LINES 


<5 LINES 
FROM TOP? 


Yes 
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The beginning is fairly straightforward. The separate shape address tables for 
M (Man) and B (Bullet) are loaded with the addresses of BSHAPEs and 
MSHAPEs. The screen is displayed and cleared and the bottom line drawn. We 
next set the line and depth for M and the starting line position for B (the screen 
bytes are not set because they will be determined by the paddle read and, as 
mentioned before, setting depth for B is not necessary because the bullet shape 
is only 1 line deep). We also load BULON with #800 to indicate the bullet is not 
on the screen. We next do a paddle read and the value returned in Y (0-255) is 
placed in MHORIZ. 

Next we ask if the bullet is on the screen by testing BULON. If it’s not on the 
screen, we set BHORIZ equal to MHORIZ so that if a bullet is fired, it will start 
from the same horizontal position as the man (BHORIZ and MHORIZ determine 
the horizontal positions of the bullet and man, respectively). If a bullet is already 
on the screen, we skip this step because, as we loop through the program to 
update MHORIZ continually from the paddle read, we want to retain the original 
value in BHORIZ—this allows the bullet to travel up the screen in a straight line 
while the man is being moved horizontally by the paddle. In other words, this 
protocol dissociates the horizontal position of the bullet from the horizontal 
position of the man once the bullet is fired. (If we omit this procedure, we 
would get an interesting situation, and one I’ve actually seen in a commercial 
game program, where the man’s position and the bullet path are both 
paddle-controlled. ) 

Whether the bullet is on the screen or not, we go to the next series of 
instructions which, using MHORIZ, gets the M screen byte and shape number, 
loads the M shape into MTEMP, and draws the man. We then ask again if the 
bullet is on the screen. If it is, we go to the bullet drawing routine to continue 
the bullet draw—if it isn’t, we ask if the button is pressed. If it is, we go to the 
bullet drawing routine to begin the bullet draw—if it isn’t, we continue with a 
delay, erase the man shape, and go back to a paddle read. Thus, if a bullet is not 
on the screen and if the button isn’t pressed, the program looks just like Program 
6-2; i.e., we see just the man shape and its horizontal movement controlled by 
the paddle. 

Let’s assume now that after we’ve drawn the man, the bullet is not on the 
screen but the button is pressed. The bullet is set to on (BULON = #$01) and 
the program then branches to the bullet draw routine which gets the B screen 
byte and shape number from BHORIZ (remember BHORIZ is determined by 
MHORIZ at the time the bullet was fired), loads the B shape into BTEMP, and 
finally draws the bullet. After a delay, both the bullet and man are erased. The B 
line position is then moved up eight lines and tested for the top of the screen. If 
the new line position is less than five lines from the top of the screen, we con- 
sider the bullet’s journey ended and the program branches to BINITIAL to reset 
the bullet starting line. The bullet is now off the screen and the program con- 
tinues with a paddle read, etc. If the top of screen has not been reached, we 
branch back to the paddle read without resetting the initial B line position. At 
this point, the bullet is on the screen. Thus, after another paddle read, BHORIZ is 
not set to equal MHORIZ because now we want the horizontal position of the 
bullet to be independent of the horizontal position of the man. Then, after the 
man is drawn, the program branches to the bullet draw routine to continue 
drawing and this continues until the bullet has reached the top of the screen. 
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Courage, we’re almost done. Because we’ve seen all the routines before, 
there is no need to discuss the details of Program 6-4 except for one point. The 
following diagram illustrates the position of the man shape when screen byte 0 
and shape 0 are selected by the paddle read. 


Screen Byte 
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Assuming the bullet is ready to be fired, i.e., it is not already on the screen, 
the same paddle read also selects screen byte 0 and shape 0 for the bullet shape. 
B shape 0 is a single dot drawn at the leftmost bit position (shape byte *$01) 
and, if drawn in screen byte 0, will appear to be fired from a position remote 
from the upraised arm that holds the gun. To align the bullet exactly with the 
upraised arm, in the LOADBUL subroutine we add 2 to the bullet screen byte 
position (lines 192 and 193) before drawing. Thus, in this example, bullet shape 
0 will be drawn in the leftmost bit position of screen byte 2 and will appear to 
emerge from the proper position. This relationship holds true throughout the 
screen range regardless of screen byte or shape number. This is the reason the 
man shape is drawn the way it is—remember the discussion in Chapter 5 regard- 
ing positioning the upraised arm in the leftmost bit position of the third screen 
byte of the shape table. 


]PROGRAM 6-4 
: ASM 


1 *PADDLE CONTROL OF HORIZONTAL MOVEMENT AND SHOOTING BULLETS 

2 ORG $6000 
6000: 4C 52 60 3 JMP PGM 

& MLINE DS 1 

5 MLINEA DS 1 

6 BLINE DS. 1 

7 DEPTH DS 1 

8 MHORIZ DS 1 

9 BHORIZ DS 1 

10 HORIZB ODS 1 

11 HORIZM ODS 1 

12 ~~ BULON DS 1 

13. XCOUNT DS 1 

14 _~——~*DELAY DS 1 

15 BTEMP DS 1 

16 + MTEMP DS 39 
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6036: 
6037: 
6038: 
6039: 
603A: 
603B: 
603C: 
603D: 
603E: 
603F: 
6040: 
6041: 
6042: 
6043: 
6044: 
6045: 
6046: 
6047: 
6048: 
6049: 
604A: 
604B: 
604C: 
604D: 
604E: 
604F : 
6050: 
6051: 
6052: 
6055: 
6058: 
605B: 
605E: 
6060: 
6062: 
6064: 
6066: 
6068: 
606A: 
606C: 
606D: 
606F : 
6071: 
6073: 
6075: 
6077: 
6079: 
607C: 
607E: 
6080: 


00 


60 


76 


DC 64 77 


GRAPHICS 
MI XOFF 
HIRES 
PAGE1 
HIGH 

LOW 

WAIT 
PREAD 
BUTTON 


*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
*CONTINUE FOR ALL 7 SHAPES 


MSHPADR DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
BSHPADR DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
PGM LDA 
LDA 
LDA 
LDA 
LDA 
STA 
LDA 
STA 
CLR1 LDY 
LDA 
CLR STA 
INY 
BNE 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
LDX 
LDY 
LDA 


$C050 

$C052 

$C057 

$C054 

$1B 

$1A 

$FCA8 

$FB1E 

$c061 ;BUTTON 0 


#<MSHAPE1 
#>MSHAPE1 
#<MSHAPE2 
#>MSHAPE2 
#<MSHAPE3 
#>MSHAPE3 
#<MSHAPE4 
#>MSHAPE4 
#<MSHAPE5 
#>MSHAPE5 
#<MSHAPE6 
#>MSHAPE6 
#<MSHAPE7 
#>MSHAPE7 
#<BSHAPE1 
#>BSHAPE1 
#<BSHAPE2 
#>BSHAPE2 
#<BSHAPE3 
#>BSHAPE3 
#<BSHAPE4 
#>BSHAPE4 
#<BSHAPE5S 
#>BSHAPES 
#<BSHAPE6 
#>BSHAPE6 
#<BSHAPE7 
#>BSHAPE7 
GRAPHICS —_;HIRES,P.1 
MIXOFF 
HIRES 
PAGE1 
#$00 sCLEAR SCREEN 1 
LOW 

#$20 

HIGH 

#$00 

#$00 
(LOW) ,Y 


CLR 

HIGH 

HIGH 

#$40 

CLR1 

#$50 ;LOAD DELAY 
DELAY 

#$B7 ;DRAW LINE 
#$00 

HI,X 
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6083: 85 1B 78 STA HIGH 
6085: BD 9C 65 79 LDA LO,X 
6088: 85 1A 80 STA LOW 
608A: AQ 7F 81 LDA #$7F 
608C: 91 1A 82 LN STA (LOW) ,Y 
608E: C8 83 INY 
608F: CO 27 84 CPY #$27 
6091: 90 F9 85 BLT LN 
86 KREKKKKKKKK MAIN PROGRAM RKKKKKKKKK 
6093: 20 E4 60 87 JSR MINITIAL ;SET LINE & DEPTH OF MAN 
6096: 20 F3 60 88 JSR BINITIAL ;SET LINE FOR BULLET 
6099: 20 FE 60 89 PADDLE JSR PODLE ;READ PADDLE 
609C: 20 39 61 90 JSR MDRAW ;DRAW MAN 
609F: AD OB 60 91 LDA BULON 
60A2: C9 01 92 CMP #$01 31S BULLET ON? 
60A4: FO 16 93 BEQ BULLET ;1F YES, CONTINUE BULLET DRAW 
60A6: AD 61 CO 94 LDA BUTTON 31F NO, IS BUTTON PRESSED? 
60A9: 30 OC 95 BMI BULLET1 ;IF YES, DRAW BULLET 
60AB: AD OD 60 96 LDA DELAY STF ONG, 
60AE: 20 A8 FC 97 JSR WAIT DELAY AND 
60B1: 20 39 61 98 JSR MDRAW ERASE MAN AND 
60B4: 4C 99 60 99 JMP PADDLE READ PADDLE AGAIN 
60B7: A9 01 100 BULLET1 LDA #$01 ;SET BULLET ON 
60B9: 8D 0B 60 101 STA BULON 
60BC: 20 83 61 102 BULLET JSR _ LOADBUL ;LOAD BULLET SHAPE INTO BTEMP 
60BF: 20 A6 61 103 JSR BDRAW ;DRAW BULLET 
112 60C2: AD OD 60 104 LDA DELAY 
6005: 20 A8 FC 105 JSR WAIT ;DELAY 
2 60C8: 20 A6 61 106 JSR BDRAW sERASE BULLET 
60CB: 20 39 61 107 JSR MDRAW sERASE MAN 
60CE: AD 05 60 108 LDA BLINE 
60D1: 38 109 SEC 
60D2: E9 08 110 SBC #$08 ;sMOVE BLINE UP 8 LINES 
60D4: 8D 05 60 111 STA BLINE 
60D7: C9 05 112 CMP = #$05 3LESS THAN 5 LINES FROM TOP? 
60D9: 90 03 113 BLT TOP 31F YES TAKE BRANCH 
60DB: 4C 99 60 114 JMP PADDLE ;1F NO, READ PADDLE AGAIN 
60DE: 20 F3 60 115 TOP JSR BINITIAL  ;INITIALIZE BULLET LINE 
60E1: 4C 99 60 116 JMP PADDLE ;READ PADDLE 


117 **kkKKKHRR SUBROUTINES **eR RRR 
60E4: AS AA 118 MINITIAL LDA #$AA 


60E6: 8D 03 60 119 STA MLINE 
60E9: 8D 04 60 120 STA MLINEA 
60EC: 18 121 CLC 
60ED: 69 OD 122 ADC #$0D 
60EF: 8D 06 60 123 STA DEPTH 
60F2: 60 124 RTS 
125 KEKKKKKKKKKKKKKKKKKKKKK 
60F3: A9 00 126 BINITIAL LDA #$00 ;BULON = O IF 
60F5: 8D 0B 60 127 STA BULON BULLET NOT ON SCREEN 
60F8: AQ A4 128 LDA #$A4 
60FA: 8D 05 60 129 STA BLINE 
60FD: 60 130 


131 KREKKKKKKKKKKKKKKKKKKKEK 


60FE: A2 00 132 PDLE LDX #$00 


6100: 20 1E FB 133 JSR PREAD ;READ PADDLE 0 
6103: 98 134 TYA 

6104: 8D 07 60 135 STA MHORIZ 30-255 IN MHORIZ 
6107: AD OB 60 136 LDA BULON 

610A: C9 01 137 CMP #$01 31S BULLET ON? 


610C: FO 06 138 BEQ PDLE1 ;1F YES, TAKE BRANCH 


ee eee eee eee eee eee eee eee eee r rere rrr rere rere rere rrr rere ere eee ees 


610E: 
6111: 
6114: 
6117: 
611A: 
611D: 
6120: 
6121: 
6122: 
6125: 
6127: 
612A: 
612C: 
612E: 
6130: 
6133: 
6134: 
6136: 
6138: 


6139: 
613B: 
613E: 
6141: 
6144: 
6147: 
6149: 
614C: 
614E: 
6151: 
6153: 
6156: 
6158: 
6159: 
615B: 
615E: 
6160: 
6161: 
6163: 
6166: 
6168: 
616B: 
616E: 
6171: 
6174: 
6177: 
617A: 
617C: 
617F: 
6182: 


6183: 
6186: 
6189: 
618A: 
618C: 
618F: 
6192: 
6193: 
6194: 
6197: 


139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
l/s 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 


LDA 
STA 
PDLE1 LDY 
LDA 
STA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LOAD LDA 
STA 
INY 
CPY 
BLT 
RTS 


KKKKKKKKKKEKKEKKKEKKEKKKKKK 


MDRAW LDA 
STA 
MDRAW1  LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 


MHORIZ 
BHORIZ 
MHORIZ 
BYTETBL,Y 
HORIZM 
OFFSET,Y 


MSHPADR , X 
LOW 


MSHPADR+1 , X 


HIGH 
#$00 
(LOW) ,Y 
MTEMP ,Y 


#$27 
LOAD 


#$00 
XCOUNT 
MLINE 
HORIZM 
HI,X 
HIGH 
LO,X 
LOW 
XCOUNT 
(LOW) ,Y 
MTEMP,X 
(LOW) ,Y 


(LOW) ,Y 
MTEMP+1 ,X 
(LOW) ,Y 


(LOW) ,Y 
MTEMP+2 ,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
MLINE 
MLINE 
DEPTH 
MDRAW1 
MLINEA 
MLINE 


KKRKKKKKKKEKKKKKEKRKKKKKE 


LOADBUL LDY 
LDA 
CLC 
ADC 
STA 
LDA 
ASL 
TAX 
LDA 
STA 


BHORIZ 
BYTETBL,Y 


#$02 
HORIZB 
OFFSET..¥ 


BSHPADR ,X 
LOW 


;1F NO, SET BHORIZ EQUAL 


TO MHORIZ 


sCONVERT 0-255 TO 0-36 (BYTE) 


3sMAN BYTE POSITION 
3GET SHAPE NUMBER 
;LOAD SHAPE INTO MTEMP 


sRESET LINE 


;CONVERTS 0-255 TO 
SCREEN BYTE (0-36) 

;ADD 2 TO ALIGN BULLET 
WITH GUN 

;sBULLET BYTE POSITION 


;GET BULLET SHAPE NUMBER 
;LOAD BULLET SHAPE INTO BTEMP 
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6199: BD 45 60 200 LDA BSHPADR+1,X 
619C: 85 1B 201 STA HIGH 

619E: AO 00 202 LDY #$00 

61A0: Bl 1A 203 LDA (LOW),Y 
61A2: 8D OE 60 204 STA BTEMP 

61A5: 60 205 RTS 


206 KEKKKKKKKKKKKKKKKKK KKK 


61A6: AE 05 60 207 BDRAW LDX BLINE 


61A9: AC 09 60 208 LDY HORIZB 
61AC: BD DC 64 209 LDA HI,X 
61AF: 85 18 210 STA HIGH 
61B1: BD 9C 65 211 LDA LO,X 
61B4: 85 1A 212 STA LOW 
61B6: Bl 1A 2i3 LDA (LOW),Y 
61B8: 4D OE 60 214 EOR BTEMP 
61BB: 91 1A 215 STA (LOW) ,Y 
61BD: 60 216 RTS 


61BE: 00 OE O01 217 MSHAPE1 HEX OQOOEO1O00E01000E01 ;MAN SHAPE TABLES 
61C1: 00 OE 01 00 OE O01 


61C7: 00 44 01 218 HEX 004401007F00601F00 
61CA: 00 7F 00 60 1F 00 
6100: 30 1F 00 219 HEX 301F00181F00001F00 
61D3: 18 1F 00 00 1F 00 
6109: 00 1F 00 220 HEX 001F00001B00403100 
61DC: 00 1B 00 40 31 00 
61E2: 60 60 00 221 HEX 606000 

114 61E5: 00 1C 02 222 MSHAPE2 HEX 001C02001C02001C02 
61E8: 00 1C 02 00 1C 02 

® 61EE: 00 08 03 223 HEX 000803007E01003E00 
61F1: 00 7E 01 00 3E 00 
61F7: 00 3F 00 224 HEX 003F00403F00003E00 
61FA: 40 3F 00 00 3E 00 
6200: 00 3E 00 225 HEX 003E00003600003600 
6203: 00 36 00 00 36 00 
6209: 00 63 00 226 HEX 006300 


620C: 00 38 04 227 MSHAPE3 HEX 003804003804003804 
620F: 00 38 04 00 38 04 


6215: 00 10 06 228 HEX 001006007C03007C00 
6218: 00 7C 03 00 7C 00 

621E: 00 7C 00 229 HEX 007C00007E00007C00 
6221: 00 7E 00 00 7C 00 

6227: 00 38 00 230 HEX 003800003800006C00 
622A: 00 38 00 00 6C 00 

6230: 00 46 01 231 HEX 004601 


6233: 00 70 08 232 MSHAPE4 HEX 007008007008007008 
6236: 00 70 08 00 70 08 


623C: 00 20 OC 233 HEX 00200C007807007801 
623F: 00 78 07 00 78 01 

6245: 00 78 01 234 HEX 007801007801007801 
6248: 00 78 01 00 78 O01 

624E: 00 70 00 235 HEX 007000007000007000 
6251: 00 70 00 00 70 00 

6257: 00 70 00 236 HEX 007000 


625A: 00 60 11 237 MSHAPES HEX 006011006011006011 
625D: 00 60 11 00 60 11 


6263: 00 40 18 238 HEX 00401800700F007003 
6266: 00 70 OF 00 70 03 
626C: 00 70 03 239 HEX 007003007803007003 
626F: 00 78 03 00 70 03 
6275: 00 60 01 240 HEX 006001006001003003 


6278: 00 60 01 00 30 03 


RRR e meee ee eee eee eee H EEE EEE TEE EE EEE EEE EEEE EEE EESEEE SESE EESEEEEEEEEEEEE HEHE EES 


627E: 00 18 06 241 
6281: 00 40 23 242 
6284: 00 40 23 00 40 
628A: 00 00 31 243 
628D: 00 60 1F 00 60 
6293: 00 70 07 244 
6296: 00 78 07 00 60 
629C: 00 60 07 245 
629F: 00 60 06 00 60 
62A5: 00 30 0C 246 
62A8: 00 00 47 247 
62AB: 00 00 47 00 00 
62B1: 00 00 62 248 
62B4: 00 40 3F 00 70 
62BA: 00 58 OF 249 
62BD: 00 4C OF 00 40 
62C3: 00 40 OF 250 
62C6: 00 40 OD 00 60 
62CC: 00 30 30 251 


62CF: 01 252 
62D0: 02 253 
62D1: 04 254 
62D2: 08 255 
62D3: 10 256 
62D4: 20 257 
62D5: 40 258 
1628 bytes 


Symbol table - numerical order: 


LOW =$1A 

BLINE =$6005 
HORIZB =$6009 
DELAY =$600D 


BSHPADR =$6044 
LN =$608C 
TOP =$60DE 


PDLEl =$6114 
LOADBUL =$6183 
MSHAPE3 =$620C 
MSHAPE7 =$62A8 
BSHAPE4 =$62D2 
BYTETBL =$62D6 
GRAPH ICS=$C050 
BUTTON =$C061 


HEX 001806 
MSHAPE6 HEX 004023004023004023 
23 
HEX 00003100601F006007 
07 
HEX 007007007807006007 
07 
HEX 006007006006006006 
06 
HEX 00300C 
MSHAPE7 HEX 000047000047000047 
47 
HEX 00006200403F00700F 
OF 
HEX O0580F004COFO0400F 
OF 
HEX 00400F00400D006018 
18 
HEX 003030 
BSHAPE1 HEX O1 ;BULLET SHAPES 
BSHAPE2 HEX 02 
BSHAPE3 HEX 04 
BSHAPE4 HEX 08 
BSHAPES5 HEX 10 
BSHAPE6 HEX 20 
BSHAPE7 HEX 40 
BYTETBL 
OFFSET 
HI 
LO 
HIGH =$1B MLINE =$6003 MLINEA 
DEPTH  =$6006 MHORIZ =$6007 BHORIZ 
HORIZM =$600A BULON  =$600B XCOUNT 
BTEMP =$600E MTEMP =$600F MSHPADR 
PGM =$6052 CLR1 =$6066 CLR 
PADDLE =$6099 BULLET1 =$60B7 BULLET 
MINITIAL=$60E4 BINITIAL=$60F3 PDLE 
LOAD =$612E MDRAW =$6139 MDRAW1 
BDRAW =$61A6 MSHAPE1 =$61BE MSHAPE2 
MSHAPE4 =$6233 MSHAPES =$625A MSHAPE6 
BSHAPE1 =$62CF BSHAPE2 =$62D0 BSHAPE3 
BSHAPE5 =$62D3 BSHAPE6 =$62D4 BSHAPE7 
OFFSET =$63D9 HI =$64DC LO 
MIXOFF =$C052 PAGE1  =$C054 HIRES 
PREAD =$FBI1E WAIT =$FCA8 


We've now gotten through the most difficult part of our discussion of game 
design. The next few chapters will discuss collisions and explosions, scoring, 
sound, and in Chapter 10, assembling the final game which involves more or less 
the same technique developed in this chapter, i.e., a detailed examination of the 
flowchart, except on a larger scale. 
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=$6004 
=$6008 
=$600C 
=$6036 
=$606A 
=$60BC 
=$60FE 
=$613E 
=$61E5 
=$6281 
=$62D1 
=$62D5 
=$659C 
=$C057 
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Collisions and Explosions 


A scientist from the war games division 
Designed a game with the ultimate collision. 
Out of mutual fear 

Missiles went flying in air, 

And then, a final nuclear fission. 


eon detection is an integral part of almost every game program and 
can be used for almost any purpose because once a collision is detected, the 
program can be instructed to do a multitude of things. For example, a shape can 
be constricted to the lanes of a maze by not allowing movement past lane bound- 
aries if a collision with these boundaries is detected. In our game program, we’re 
going to detect a collision of a bullet with a passing plane and this will be fol- 
lowed by drawing explosion shapes at the area of impact. In later chapters we 
will see how to integrate sound and scoring with these collision events. 


COLLISION DETECTION 


Peete teem eee meee eee eee eee ee TEE eE EEE EEE EEETeEEe 


The heart of collision detection is the AND instruction. AND compares each 
bit of the Accumulator with the corresponding bit of a byte, either a direct value 
or the contents of a memory location, and returns a value of 1 if both bits are 1; 
otherwise, the result will be 0. The result is stored in the Accumulator. 


Example 


Accumulator 


0 
AND byte 0 


O170011 
1010101 


Result in Accumulator 00010001 
Let’s see how we can use this instruction to detect collisions. Suppose we 
have a bullet shape, a single dot, moving up the screen. We want to ask: does the 


corresponding bit position of the next screen byte position the bullet is going to 
move into contain a 1 (i.e., a shape) or a O (i.e., no shape)? If the screen bit 


Pee eee Ree EERE REESE EEE E EEE HEE EEE EEE EEE E EE EEE EEE EEE EEE E ESSE SEES EEE EEE EEE SEES SHEE EEE EE EES 


contains a 0, ANDing the screen byte with the bullet shape byte will return a 0; if 
it contains a 1, ANDing will return some number greater than 0. 


Example 

No collision Shape on Screen 
Screen byte in Accumulator (#$7E) OT et i ae OFT Pa a 
AND with bullet shape (#$01) 00000001 1000000 
Result in Accumulator (zero) 00000000 

Collision Shape on Screen 
Screen byte in Accumulator (#$7E) OF Atte Oa aa 
AND with bullet shape (#$02) 00000010 0100000 
Result in Accumulator (non-zero) 00000010 


Note that the screen byte itself does not have to be entirely empty for there 
to be no collision; only the corresponding bit position must be empty. This is 
exactly what we want. Suppose the screen byte #$7E corresponds to the bottom 
line of a plane shape moving left to right. If a bullet is to move into this screen 
byte and if the bullet shape byte, by virtue of its horizontal positioning, is #$01, 
the AND instruction will return a value of 0, i.e., no collision, which describes 
the situation perfectly; the bullet will pass just to the left of the plane (see Shape 
on Screen column above ). On the other hand, if the bullet shape byte, by virtue 
of its horizontal positioning, is #$02, the bullet will appear to hit the plane and 
the AND instruction will return a value greater than 0, i.e., a collision. (There is 
an obvious problem here if the high or leftmost bit is set to 1 for either the 
screen or shape byte as it is for selecting some colors but we'll get to this prob- 
lem in the chapter on drawing in color—for now, and for all the programs in 
Part One, the high bit is set to 0). 

Now that these principles have collided with your brain cells, we can de- 
scribe a general routine for collision detection as follows: 


LDA Screen Byte 

AND Shape Byte ;RESULT IS ZERO IF NO COLLISION 
CMP #$00 

BEQ NOHIT ;BRANCH TO NOHIT IF NO COLLISION 
JMP COLLISION ;GO TO COLLISION IF COLLISION 


The CMP #$00 is not really needed here, as BEQ will branch when the result of 
the previous operation is zero, but it is included to make the program easier to 
read. 

This general routine presents a problem when we want to detect a collision 
with shapes moving non-vertically using a DRAW-DRAW protocol. Vertical 
movement with DRAW-DRAW is okay—the screen byte to be AND’ed is one or 
more lines above or below the shape and is either empty or not. However, non- 
vertical movement always contains a horizontal vector and in horizontal move- 
ment, the same screen byte is repeatedly accessed for each of the seven shapes. 
Thus, if we use DRAW-DRAW and the AND test for horizontal movement, the 
first time we draw a shape we’re okay. But when we want to draw the next 
shape, the same screen byte is accessed (except at the screen byte boundaries ) 
and AND’ed with the shape byte. The screen byte still contains the first shape 
byte because there is no erase cycle and thus a collision will be detected. In 
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other words, the shape will continually “collide” with itself. Therefore if a shape 
with horizontal movement is itself to be used for collision detection, it must use 
the DRAW-ERASE protocol. DRAW-ERASE works because the shape byte is 
erased before the collision test. Note that with DRAW-ERASE, the shape byte and 
not the screen byte is erased. Thus, if the screen byte contains an “on” bit from 
another shape, this bit will not be erased by EOR Shape Byte because with EOR, 
0+ 1 = 1. Thus: 


Shape 1 Shape 2 


LDA Screen Byte 1 #$07 #$40 
1 


EOR Shape 1 Byte 


Result in Accumulator 0000001 Shape 2 still in screen byte 


As the first shape is both drawn and erased with EOR, the bit from the second 
shape is always present for the AND test and a collision will result when the first 
shape enters this bit position. 

Let’s put all this to work in an actual program. The next program (Program 

7-1) is essentially the same as Program 6-3 except now we've drawn a line in the 
left half of the screen near the top—if a fired bullet hits this line, a long delay 
will ensue as a collision marker. Shooting the bullet in the right half of the 
screen will, of course, result in no collision, as there’s no line there. 
118 Now to the details of Program 7-1. First, we draw a line in the left half of the 
= screen at screen line position #$0C (12). There’s a good reason for drawing the 
line at that particular line position as we'll soon see. Next, the program con- 
tinues in the same way as Program 6-3 until we get to the point where the 
answer to the questions, “Is the Bullet On?” or “Is the Button Pressed?” is yes. 

Now, instead of just drawing the bullet, we first test for a collision; i.e., is 
there something in the screen bit position where the bullet is to be drawn? The 
BDRAW routine specifies the line and screen byte where the bullet is to be 
drawn from BLINE and HORIZB. The instruction LDA (LOW),Y (line 224 ) loads 
the Accumulator with the screen byte contents and the next instruction, AND 
BTEMP, AND’s the Accumulator with the bullet shape byte (remember that the 
value in BTEMP is determined by the horizontal position of the man when the 
bullet is fired). If the AND result is zero, there will be no collision, the program 
branches to NOHIT where the bullet is drawn, and the program continues just as 
in Program 6-3. If the AND result is non-zero, this indicates a collision and the 
program jumps to COLLISION, which produces a long delay simply as a collision 
marker, and then initializes the bullet, erases the man, and jumps back for 
another paddle read. (The BPL instruction [line 238] in the long-delay loop in 
the COLLISION subroutine continues the delay loop until Y = #$FF; because Y 
initially contains #$10, the LDA #$FF, JSR WAIT delay will loop 17 times before 
going to JSR BINITIAL.) 

There are a few other details of Program 7-1 we have to consider before 
going on. First, you might have noticed from the flowchart that the bullet seems 
not to have been erased after the collision. In fact, it has, because the collision 
test occurs before the bullet is drawn, not after. In other words, the sequence is 
draw-erase-test, draw-erase-test, etc. This seems to present another problem, 
because the bullet is moved up eight lines at a time and thus the last bullet on 
the screen is eight lines below the collision site. In actuality, however, the bullet 
is moving so fast that the illusion of a direct hit is preserved. In any event, this is 
a special situation that arises only when a shape to be tested for a collision is 
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moved large distances between each test. With the more usual smaller moves, 
say one or two lines or bits at a time, the direct hit illusion is preserved even 
with slow-moving shapes—the eye can hardly discern whether a collision is on 
target or one or two bits or lines away. In any case, if this bothers you, you could 
incorporate the following routine, which uses a test-draw-erase cycle. The shape 
is drawn in its next position whether or not a collision has been detected—if 
detected, COLL is set to 1 and this branches the program to COLLISION, which 
erases the shape before continuing: 


LDA (LOW),Y 
AND BTEMP 
CMP #$00 
BEQ NOHIT 
LDA #$01 -LOAD COLL WITH ONE IF COLLISION 
STA COLL 
NOHIT LDA (LOW),Y — ;DRAW BULLET 

EOR BTEMP 
STA (LOW),Y 
LDA COLL 
CMP #$01 
BEQ COLLISION ;JUMP TO COLLISION IF COLLISION 
RTS -ELSE RETURN TO MAIN PROGRAM 

COLLISION JSR BXDRAW _ ;ERASE BULLET 119 


etc. 
té 


Next, you will notice that when the bullet is erased after no collision, we 
access a routine called BXDRAW instead of BDRAW. This is because BDRAW 
contains the collision test instructions. If we access BDRAW for the bullet erase, 
LDA (LOW),Y would load the Accumulator with the content of the screen byte, 
which is in fact the bullet shape byte because the bullet is already on the screen 
at that location. Thus, if we then do an AND BTEMP, a collision will always be 
detected even though the bullet isn’t hitting anything (except itself! ). Therefore 
we use BXDRAW to erase—BXDRAW is the same as BDRAW but without the 
collision test instructions. 

Finally, we have to discuss how to ensure that the shapes to collide will 
occupy the same bit positions at the apparent point of collision, a not inconse- 
quential problem. If a shape to be tested for a collision is moved one bit or line 
at a time, there is no problem, but if the shape moves in larger increments, the 
collision test may fail even though a collision appears to take place on the 
screen. For example, the bullet shape in Program 7-1 is tested for a collision at 
only every eighth line (because it moves up eight lines at a time) starting from 
line 164 (#$A4). Thus, a collision will be detected only with shapes that occupy 
a screen line some multiple of 8 from the starting line—this is why the top line is 
drawn at line 12 (#$0C). 

Try this for yourself. Draw the top line at screen line 11 or 13 and run the 
program—the bullet will appear to go right through the line with no collision. 
However, this appears to be much more of a problem than it is. First, in most 
cases, shapes are moved only one line or bit at a time and in this situation, every 
screen line or bit position will be collision-tested. Second, in the case of larger 
movements, such as the bullet move, all we need do is ensure that the shape to 
be collided with is in the proper position. In the final game program, for exam- 
ple, bullets are fired at passing planes and all we have to do is draw the planes or 
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some part of the planes at screen lines some multiple of 8 from the bullet start- 
ing line. Remember, we are now expert assembly language programmers and so 
we can draw shapes anywhere we want! 

Suppose, however, we can’t predict the screen position of a shape to be 
collided with. For example, suppose we modify the game program so that the 
planes drop bombs and we want to detect collisions of the bullet with the 
bombs as well as the planes. The bombs drop in a parabolic curve and at the 
point of apparent collision with the bullet, may or may not be at one of the 
multiple of 8 line positions. To get around this, we can use the following 
BDRAW routine which collision-tests every line position from the last bullet 
drawn, not just the eighth position up: 


BDRAW LDA BLINE ;BL IS LOADED WITH BLINE AND 
STA BL ;CTR WITH BLINE + UP 7 LINES 
SEC 
SBC #$07 
STA CTR 


FITTER IK te TEST COLLISION FROM BL TO CTR RRR RII IIIT OTTO tek kk te 


COL LDX BL TEST COLLISION FOR LINE BL 

LDY HORIZB 

LDA HI,X 

STA HIGH 

LDA LO,X 

STA LOW 

LDA (LOW),Y 

AND BTEMP 

CMP #$00 -IF NO COLLISION, GO TO COL1 TO TEST NEXT LINE 

BEQ COL1 

JMP COLLISION ;IF COLLISION, JUMP TO COLLISION 
COL1 DECBL ‘TEST NEXT LINE UP 

LDA BL 

CMP CTR 

BGE COL ‘STOP TEST WHEN LINE REACHES CTR 

LDX BLINE -IF NO COLLISION, DRAW BULLET 

LDY HORIZB 

LDA HI,X 

STA HIGH 

LDA LO,X 

STA LOW 

LDA (LOW),Y 

EOR BTEMP 

STA (LOW),Y 

RTS 


Try this routine in Program 7-1. You will find that the bullet will collide with any 
shape regardless of its screen line position. 

One final word about shape positions and collisions. If the shape to be col- 
lided with is larger than the movement of the collision test shape, the above type 
of routine would not be necessary. For example, if we want to test for the colli- 
sion of a bullet with a shape that at every point is at least 8 lines deep, then 
obviously some part of the shape will always be at a line position that is some 
multiple of 8 from the bullet starting line. 
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LOAD SHAPE ADDRESSES 
INTO SHPADR 
DISPLAY AND 
CLEAR SCREEN 
DRAW TOP AND 
BOTTOM LINES 


MINITIAL — SET 
LINE AND DEPTH 


BINITIAL — SET LINE 
AND BULLET OFF 
(BULON = 0) 


READ PADDLE 
BULLET ON? 
Yes 
DRAW MAN 
BULLET ON? 
BUTTON PRESSED? 


SET BHORIZ = MHORIZ 
121 


SET BULLET ON 
(BULON = 1) 


AND BTEMP WITH 
SCREEN BYTE 
COLLISION? 
DRAW BULLET 


ERASE MAN 


LONG DELAY AS 
COLLISION MARKER 
BINITIAL 
ERASE MAN 


ERASE MAN 
AND BULLET 
MOVE BLINE 
UP 8 LINES 
<5 LINES 
FROM TOP? 


Yes 
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]PROGRAM 7-1 


:ASM 

1 *TESTING FOR COLLISION* 

2 ORG $6000 
6000: 4C 52 60 3 JMP PGM 

4 MLINE DS 1 

5 MLINEA DS 1 

6 BLINE DS 1 

7 DEPTH DS. 12 

8 MHORIZ DS 1 

9 BHORIZ DS 1 

10 HORIZB ODS 1 

11 HORIZM DS 1 

12 ~BULON DS 1 

13. XCOUNT DS 1 

14 ~—~ODELAY DS 1 

15 BTEMP DS 1 


16 = MTEMP DS 39 


17. GRAPHICS = $C050 

18 MIXOFF = $C052 

19 HIRES = $C057 

20 ~=PAGE1 = $C054 

21 ~HIGH = $1B 

22 ~=LOW = $1A 

23. WAIT = $FCA8 

24 ~~ PREAD = $FBI1E 

122 25 BUTTON = $C061 ;BUTTON 0 
26 *LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
ii 27 *CONTINUE FOR ALL 7 SHAPES 

6036: OC 28 MSHPADR DFB- #<MSHAPE1 
6037: 62 29 DFB #>MSHAPE1 
6038: 33 30 DFB #<MSHAPE2 
6039: 62 31 DFB #>MSHAPE2 
603A: 5A 32 DFB #<MSHAPE3 
603B: 62 33 DFB #>MSHAPE3 
603C: 81 34 DFB #<MSHAPE4 
603D: 62 35 DFB #>MSHAPE4 
603E: A8 36 DFB #<MSHAPES 
603F: 62 37 DFB #>MSHAPES 
6040: CF 38 DFB #<MSHAPE6 
6041: 62 39 DFB #>MSHAPE6 
6042: F6 40 DFB #<MSHAPE7 
6043: 62 41 DFB #>MSHAPE7 
6044: 1D 42 BSHPADR DFB_ #<BSHAPE1 
6045: 63 43 DFB #>BSHAPE1 
6046: 1E 44 DFB #<BSHAPE2 
6047: 63 45 DFB #>BSHAPE2 
6048: 1F 46 DFB #<BSHAPE3 
6049: 63 47 DFB #>BSHAPE3 
604A: 20 48 DFB #<BSHAPE4 
604B: 63 49 DFB #>BSHAPE4 
604C: 21 50 DFB #<BSHAPES 
604D: 63 51 DFB #>BSHAPE5S 
604E: 22 52 DFB #<BSHAPE6 
604F: 63 53 DFB #>BSHAPE6 
6050: 23 54 DFB #<BSHAPE7 
6051: 63 55 DFB #>BSHAPE7 
6052: AD 50 CO 56 # PGM LDA GRAPHICS — ;HIRES,P.1 
6055: AD 52 CO 57 LDA MIXOFF 
6058: AD 57 CO 58 LDA HIRES 


605B: AD 54 CO 59 LDA PAGE1 
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605E: 
6060: 
6062: 
6064: 
6066: 
6068: 
606A: 
606C: 
606D: 
606F: 
6071: 
6073: 
6075: 
6077: 
6079: 
607C: 
607E: 
6080: 
6083: 
6085: 
6088: 
608A: 
608C: 
608E: 
608F : 
6091: 
6093: 
6095: 
6097: 
60SA: 
609C: 
609F: 
60A1: 
60A3: 
60A5: 
60A6: 
60A8: 


60AA: 
60AD: 
60B0: 
60B3: 
60B6: 
60B9: 
60BB: 
60BD: 
60C0: 
60C2: 
60C5: 
60C8: 
60CB: 
60CE: 
60D0: 
60D3: 
60D6: 
60D9: 
60DC: 
60DF: 
60E2: 
60E5: 
60E8: 


100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 


LN 


LN1 


LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
BNE 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
INY 
CPY 
BLT 
LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
INY 
CPY 
BLT 


;CLEAR SCREEN 1 


;LOAD DELAY 
;DRAW BOTTOM LINE 


;DRAW TOP LINE 123 


KKKKKKKKKK MAIN PROGRAM KKKKKKKKKK 


PADDLE 


BULLET1 
BULLET 


JSR 
JSR 
JSR 
JSR 
LDA 
CMP 
BEQ 
LDA 
BMI 
LDA 
JSR 
JSR 
JMP 
LDA 
STA 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
LDA 
SEC 


MINITIAL 
BINITIAL 


PDLE 
MDRAW 
BULON 
#$01 
BULLET 
BUTTON 
BULLET1 
DELAY 
WAIT 
MDRAW 
PADDLE 
#$01 
BULON 
LOADBUL 
BDRAW 
DELAY 
WAIT 
BXDRAW 
MDRAW 
BLINE 


;SET LINE & DEPTH OF MAN 
3SET LINE FOR BULLET 
sREAD PADDLE 

;DRAW MAN 


31S BULLET ON? 
3IF YES, CONTINUE BULLET DRAW 
3I1F NO, IS BUTTON PRESSED? 
3IF YES, DRAW BULLET 
3IF NO, 

DELAY AND 

ERASE MAN AND 

READ PADDLE AGAIN 
3;SET BULLET ON 


;LOAD BULLET SHAPE INTO BTEMP 
;DRAW BULLET & TEST FOR COLLISION 


;DELAY 
sERASE BULLET 
sERASE MAN 


60E9: E9 08 121 SBC #$08 sMOVE BLINE UP 8 LINES 

60EB: 8D 05 60 122 STA BLINE 

60EE: C9 05 123 CMP #$05 ;LESS THAN 5 LINES FROM TOP? 
60F0: 90 03 124 BLT TOP 3IF YES TAKE BRANCH 

60F2: 4C BO 60 125 JMP PADDLE ;1F NO, READ PADDLE AGAIN 
60F5: 20 OA 61 126 TOP JSR BINITIAL  ;INITIALIZE BULLET LINE 
60F8: 4C BO 60 127 JMP PADDLE ;READ PADDLE 


128 0 *eeRRRRR SUBROUTINES ik 
60FB: A9 AA 129 MINITIAL LDA #$AA 


60FD: 8D 03 60 130 STA MLINE 
6100: 8D 04 60 131 STA MLINEA 
6103: 18 132 CLE 
6104: 69 OD 133 ADC #$0D 
6106: 8D 06 60 134 STA DEPTH 
6109: 60 135 
136 KEKKKKEKKKEKKKKKKKKKKKKKK 
610A: A9 00 137 BINITIAL LDA #$00 ;BULON = 0 IF 
610C: 8D 0B 60 138 STA BULON BULLET NOT ON SCREEN 
610F: AQ A4 139 LDA #$A4 
6111: 8D 05 60 140 STA BLINE 
6114: 60 141 


142 KREKKKKKKEKKKKKKKKKKKKKK 


6115: A2 00 143 PDLE LDX #$00 


6117: 20 1E FB 144 JSR PREAD sREAD PADDLE 0 
611A: 98 145 TYA 
611B: 8D 07 60 146 STA MHORIZ 30-255 IN MHORIZ 
124 611E: AD OB 60 147 LDA BULON 
6121: C9 01 148 CMP #$01 ;IS BULLET ON? 
- 6123: FO 06 149 BEQ PDLE1 sIF YES, TAKE BRANCH 
6125: AD 07 60 150 LDA MHORIZ sIF NO, SET BHORIZ EQUAL 
6128: 8D 08 60 151 STA BHORIZ TO MHORIZ 
612B: AC 07 60 152 PDLE1 LDY MHORIZ 
612E: B9 24 63 153 LDA BYTETBL,Y ;CONVERT 0-255 TO 0-36 (BYTE) 
6131: 8D OA 60 154 STA HORIZM sMAN BYTE POSITION 
6134: B9 27 64 155 LDA OFFSET,Y  ;GET SHAPE NUMBER 
6137: OA 156 ASL ;LOAD SHAPE INTO MTEMP 
6138: AA 157 TAX 
6139: BD 36 60 158 LDA MSHPADR,X 
613C: 85 1A 159 STA LOW 
613E: BD 37 60 160 LDA MSHPADR+1,X 
6141: 85 18 161 STA HIGH 
6143: AO 00 162 LDY #$00 
6145: Bl 1A 163 LOAD LDA (LOW) ,Y 
6147: 99 OF 60 164 STA MTEMP,Y 
614A: C8 165 INY 
614B: CO 27 166 CPY #$27 
614D: 90 F6 167 BLT LOAD 
614F: 60 168 


169 KKKEKKKKKKKKEKKKKKEKKKKKKKK 


6150: A9 00 170 MDRAW LDA #$00 


6152: 8D OC 60 171 STA XCOUNT 
6155: AE 03 60 172 MDRAW1 LDX MLINE 
6158: AC OA 60 173 LDY HORIZM 
615B: BD 2A 65 174 LDA HI,X 
615E: 85 1B 175 STA HIGH 
6160: BD EA 65 176 LDA LO,X 
6163: 85 1A 177 STA LOW 
6165: AE OC 60 178 LDX XCOUNT 
6168: Bl 1A 179 LDA (LOW) ,Y 
616A: 5D OF 60 180 EOR MTEMP,X 


616D: 91 1A 181 STA (LOW),Y 
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616F: 
6170: 
6172: 
6175: 
6177: 
6178: 
617A: 
617D: 
617F: 
6182: 
6185: 
6188: 
618B: 
618E: 
6191: 
6193: 
6196: 
6199: 


619A: 
619D: 
61A0: 
61Al: 
61A3: 
61A6: 
61A9: 
61AA: 
61AB: 
61AE: 
61B0: 
61B3: 
61B5: 
61B7: 
61B9: 
61BC: 


61BD: 
61C0: 
61C3: 
61C6: 
61C8: 
61CB: 
61CD: 
61CF: 
61D2: 
61D4: 
61D6: 
61D9: 
61DB: 
61DE: 
61E0: 


61EL: 
61E3: 
61E5: 
61E8: 
61E9: 
61EB: 
61EE: 
61F1: 


182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
2e0 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 


INY 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 


KEKKEKKKEKKKKKKKEKKEKKKKKEK 


LOADBUL LDY 
LDA 
CLC 
ADC 
STA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 


KKKKKKEKKKKKKKKKKKKKKKKK 


BDRAW LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
AND 
CMP 
BEQ 
JMP 
NOHIT LDA 
EOR 
STA 


KRKKKKKEKEKEKKKKKKKKKKKKKKK 


COLLISION LDY #$10 


COL1 LDA 
JSR 
DEY 
BPL 
JSR 
JSR 
JMP 


(LOW) ,Y 
MTEMP+1 ,X 
(LOW) ,Y 


(LOW) ,Y 
MTEMP+2 ,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
MLINE 
MLINE 
DEPTH 
MDRAW1 
MLINEA sRESET LINE 
MLINE 


BHORIZ ;CONVERTS 0-255 TO 
BYTETBL,Y SCREEN BYTE (0-36) 
sADD 2 TO ALIGN BULLET 
#$02 WITH GUN 
HORIZB ;BULLET BYTE POSITION 
OFFSET,Y ;GET BULLET SHAPE NUMBER 
;LOAD BULLET SHAPE INTO BTEMP 


BSHPADR ,, X 
LOW 
BSHPADR+1 ,X 
HIGH 

#$00 
(LOW) ,Y 
BTEMP 


BLINE 

HORIZB 

HI,X 

HIGH 

LO,X 

LOW 

(LOW) ,Y 

BTEMP sRESULT IS 0 IF NO COLLISION 
#$00 

NOHIT 

COLLISION 

(LOW) ,Y sCONTINUE BULLET DRAW 
BTEMP 

(LOW) ,Y 


;LONG TIME DELAY 
#$FF 
WAIT 


COL1 

BINITIAL 

MDRAW ;ERASE MAN 
PADDLE 


KRKKKKKEKKKKKKKKKKKKKKKEK 


125 


126 


61F4: 
61F7: 
61FA: 
61FD: 
61FF: 
6202: 
6204: 
6206: 
6209: 
620B: 


620C: 
620F: 
6215: 
6218: 
621E: 
6221: 
6227: 
622A: 
6230: 
6233: 
6236: 
623C: 
623F: 
6245: 
6248: 
624E: 
6251: 
6257: 
625A: 
625D: 
6263: 
6266: 
626C: 
626F: 
6275: 
6278: 
627E: 
6281: 
6284: 
628A: 
628D: 
6293: 
6296: 
629C: 
629F: 
62A5: 
62A8: 
62AB: 
62B1: 
62B4: 
62BA: 
62BD: 
62C3: 
62C6: 
62CC: 
62CF: 
62D2: 
6208: 
62DB: 
62E1: 


BXDRAW 


LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
EOR 
STA 
RTS 


BLINE 
HORIZB 
HI,X 
HIGH 
LO,X 
LOW 
(LOW) ,Y 
BTEMP 
(LOW) ,Y 


KEKKKKKKEKKKKEKKEKKKKKEKKKKKK 


MSHAPE1 
01 


00 


00 


MSHAPE2 
02 


MSHAPE3 
04 


MSHAPE4 
08 


01 
01 
00 


MSHAPE5 
11 


MSHAPE6 
23 


07 


HEX 
HEX 
HEX 


HEX 


HEX 


HEX 
HEX 


HEX 


000E01000E01000E01 
004401007F00601F00 
301F00181F00001F00 
001F00001B00403100 


606000 
001C02001C02001C02 


000803007E01003E00 
003F00403F00003E00 
003E00003600003600 


006300 
003804003804003804 


001006007C03007C00 
007C00007E00007C00 
003800003800006C00 


004601 
007008007008007008 


00200C007807007801 
007801007801007801 
007000007000007000 


007000 
006011006011006011 


00401800700F 007003 
007003007803007003 
006001006001003003 


001806 
004023004023004023 


00003100601F 006007 
007007007807006007 


Pete eee eee EERE EEE EERE EEE EEE SE EEE E EEE EE EEO EEE H HEE EEE EEE EEEEEEe 


;BDRAW WITHOUT COLLISION TEST 


3MAN SHAPE TABLES 


62E4: 00 78 
62EA: 00 60 
62ED: 00 60 
62F3: 00 30 
62F6: 00 00 
62F9: 00 00 
62FF: 00 00 
6302: 00 40 
6308: 00 58 
630B: 00 4C 
6311: 00 40 
6314: 00 40 
631A: 00 30 
631D: 01 
631E: 02 
631F: 04 
6320: 08 
6321: 10 
6322: 20 
6323: 40 


1706 bytes 


07 00 60 07 


07 282 


06 00 60 06 


OC 283 
47 284 


47 00 00 47 


62 285 


3F 00 70 OF 


OF 286 


OF 00 40 OF 


OF 287 


OD 00 60 18 


30 288 


BSHAPE1 
BSHAPE2 
BSHAPE3 
BSHAPE4 
BSHAPE5 
BSHAPE6 
BSHAPE7 
BYTETBL 
OFFSET 
HI 

LO 


CORO eee eee ee eee eee EEE OEE EEE EEE EEE EES SEES EEE OEE EE EEE EEEEE OSES ESSE SEES EEE EEE EEE E EEE E EE EEE EE EEE EEE EEES 


Symbol table - numerical order: 


LOW =$1A 

BLINE  =$6005 
HORIZB =$6009 
DELAY =$600D 
BSHPADR =$6044 
LN =$608C 
BULLET =$60D3 
PDLE =$6115 
MDRAW1 =$6155 
COLLIS ION=$61E1 
MSHAPE2 =$6233 
MSHAPE6 =$62CF 
BSHAPE3 =$631F 
BSHAPE7 =$6323 
LO =$65EA 
HIRES  =$C057 

EXPLOSIONS 


HIGH 
DEPTH 
HORIZM 
BTEMP 
PGM 
LN1 
TOP 
PDLE1 
LOADBUL 
COL1 
MSHAPE3 
MSHAPE7 
BSHAPE4 
BYTETBL 
GRAPHIC 
BUTTON 


FORO eee nero reese eee e eee eee EEE ese SeEEeeEeeees 


HEX 006007006006006006 

HEX 00300C 

HEX 000047000047000047 

HEX 00006200403F00700F 

HEX 00580F004COF00400F 

HEX 00400F00400D006018 

HEX 003030 

HEX 01 ;BULLET SHAPES 

HEX 02 

HEX 04 

HEX 08 

HEX 10 

HEX 20 

HEX 40 

=$1B MLINE  =$6003 MLINEA =$6004 
=$6006 MHORIZ =$6007 BHORIZ =$6008 
=$600A BULON  =$600B XCOUNT =$600C 
=$600E MTEMP  =$600F MSHPADR =$6036 
=$6052 CLR1  =$6066 CLR =$606A 
=$60A3 PADDLE =$60B0 BULLET1 =$60CE 
=$60F5 MINITIAL=$60FB BINITIAL=$610A 
=$612B LOAD =$6145 MDRAW  =$6150 
=$619A BDRAW  =$61BD NOHIT  =$61D9 
=$61£3 BXDRAW =$61F4 MSHAPE1 =$620C 
=$625A MSHAPE4 =$6281 MSHAPES =$62A8 
=$62F6 BSHAPE1 =$631D BSHAPE2 =$631E 
=$6320 BSHAPES =$6321 BSHAPE6 =$6322 
=$6324 OFFSET =$6427 HI =$652A 

S=$C050 MIXOFF =$C052 PAGE1 =$C054 
=$C061 PREAD =$FBIE WAIT  =$FCA8 


Collisions don’t always result in explosions but they often do (and they will 
in our final game program), so let’s see how we can modify Program 7-1 to 
display an explosion when a bullet hits the top line (see Program 7-2). 

There are two problems associated with explosion routines. One, how do 
we draw the explosion and two, where do we draw it? Let’s tackle the second 


problem first. 


Obviously we want to draw the explosion at the point of impact. How do we 
determine where this is? Easy. The horizontal position of the explosion is 
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obtained from HORIZB, the horizontal position of the bullet at the time of 
impact, i.e., when the AND test returns non-zero. The vertical position can be 
determined from BLINE, the screen line position used for the collision test. 
Actually, in Program 7-2 and in the final game program, the shape that’s hit is 
always at the same line position. In this case, the vertical position of the impact is 
known beforehand and we simply can specify this line position in our explosion 
draw routines. Keep in mind, however, that this is not always the case and so in 
other situations, BLINE or its equivalent must be used. 

For example, suppose we modify the game program so that planes appear at 
several different line positions—to know where to draw the explosion we would 
use HORIZB and BLINE. In programs involving collisions with multiple shapes, 
it’s also important to know which shape is hit, because (as we'll see in the game 
program, although not in the programs in this chapter) the first thing we do 
after detecting a collision is to erase the target shape. Consider a program where 
a plane is dropping bombs and we want to detect collisions with both. We know 
the line position of the plane and so if BLINE tells us we’re at that line, we know 
we've hit the plane. If BLINE tells us the collision is below the plane line, we 
know we've hit a bomb. Now consider a more complicated example. Suppose 
we have planes appearing at different lines, each dropping bombs. It’s conceiv- 
able that a bullet may hit a bomb just at the line position of one of the planes. In 
this case if we rely just on BLINE, we won’t know which shape we've hit. To 
solve this problem we would use both the bomb and bullet shapes as collision 
128 testers. If the bomb and bullet hit something, we know we’ve hit a bomb. If only 
the bullet hits something, we know we've hit a plane. Let’s take this one step 


ESHAPE 1 

ESHAPE 2 

ESHAPE 3 
| jeje! | | [ 4118 06 
j@lelfele! | | |7c oF 
j@le@elel/e@elele! |7c 3F 
j@le@elje/elele! |7E 3F 
j@lelelelelelel7c 7F 

ESHAPE 4 @le@elelelele! |7c 3F 
f@lelelelele! |7E 3F 
@je@eieieie| | |7F iF 
f@je@elele!| | [ |7E oF 
j@je@elelele! [ |7c iF 
fefelje@ei/e! | | |70 oF 
jefe; | | | [ |40 03 
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further. Suppose the bomb hits something but the bullet doesn’t. This means the 
bomb has hit either the bottom line or the man and we can distinguish between 
these two alternatives by determining at what line the collision took place. 

Now let’s get to the explosion draw routines. There are many ways to display 
explosion shapes, from starbursts to splaying of fragments to fireballs, etc. For 
Program 7-2 and for the game program, we’re going to use the fireball type of 
display. To simulate an explosion, we draw (and erase), at the point of impact, 
the four shapes (shown on opposite page) in succession—the first two shapes 
are just random dots, the third is a filled-in “fireball,” and the fourth is a larger 
“fireball.” 

In Program 7-2, when a collision is detected, the program jumps to the 
COLLISION subroutine, which then accesses the EXPLOSION subroutine (line 
237). Here each of the four shapes in turn is initialized, drawn, delayed, and 
erased. The program then returns to the COLLISION routine to initialize the 
bullet, erase the man, and go back for another paddle read. 

Each explosion shape has its own initialization routine, labelled INITE1, 
INITE2, etc., which sets the starting line (ELINE and ELINEA), depth of shape 
(EDEPTH), and XCOUNT. XCOUNT is specified for each shape because the 
ESHAPE shape table is accessed in a way that doesn’t involve an ESHPADR table, 
both because it’s convenient and because it serves to illustrate that we should 
not be a slave to any particular type of routine if other routines are equally 
feasible. In the explosion draw routines, the shape byte is retrieved by EOR 
ESHAPE,X where X is specified by XCOUNT. Thus, to draw the first shape, we 
set XCOUNT to zero (lines 323 and 324). Because the first shape contains five 
bytes, the second shape begins at the sixth position of ESHAPE. Therefore, we set 
XCOUNT to #$05 for the second shape (ESHAPE + 5 = sixth byte of table). 
Similarly, we set XCOUNT to #$0A for the third shape and to #$12 for the fourth 
shape. This type of routine works well if we’re dealing with small numbers of 
shapes and if the shape table is not overly large (we discussed the problem of 
using this protocol with large shape tables in Chapter 5). 

The value for ELINE can be determined from BLINE, the line position of the 
bullet when the AND test indicates a collision, but as we know where the target 
is (at screen line #$0C), this becomes unnecessary in this case. However, the 
particular values we choose for ELINE depend to some extent on how the shape 
table is constructed and how we want the shapes to be displayed. This is done 
more or less by trial and error—we simply try different lines to see what looks 
right. Explosion shapes 1 and 2 are started at line #$09 and because a hot fireball 
always moves up, shape 3 is started at line #$05 and shape 4 at line #$01, i.e., at 
higher screen positions. 

The explosion draw routines are the usual DRAW-ERASE type except that 
we have to use two routines, one for the first three shapes (DRAWE1) and 
another for the fourth shape (DRAWE2), as the fourth shape is 2 bytes wide but 
the others only 1. For the erase cycle, we first delay and then reinitialize to reset 
the appropriate parameters—we then go to the draw routine again to erase. The 
delay times for each shape are also set by trial and error—the ones I’ve chosen 
seem to work best. Finally, as mentioned above, the horizontal position of the 
explosion is determined by HORIZB (see lines 279 and 298). 
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Hi-Res Graphics and Animation Using Assembly Language Cee ccedececcncacadeccccccccccccecescoeeseceecceececseeesnccnceoecesoelsecoceces 


LOAD SHAPE ADDRESSES 
INTO SHPADR 
DISPLAY AND 
CLEAR SCREEN 
DRAW TOP AND 
BOTTOM LINES 


MINITIAL — SET 
LINE AND DEPTH 


BINITIAL — SET LINE 
AND BULLET OFF 
(BULON = 0) 


SET BHORIZ = MHORIZ 
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SET BULLET ON 
(BULON = 1) 


AND BTEMP WITH 
SCREEN BYTE 
COLLISION? 
DRAW BULLET 


ERASE MAN 
DRAW AND ERASE 
EXPLOSION SHAPES 


BINITIAL 
ERASE MAN 


ERASE MAN 
AND BULLET 
MOVE BLINE 
UP 8 LINES 
<5 LINES 
FROM TOP? 


Yes 


ROR e meee eee EERE EEE ERE E ETE O THEE EEE HEHE SEES SES EEEEEE SEES EEEEEEES SEES SESE EEEEEEEHEEEEEHEESESEEEEEESEEEEE EES 


JPROGRAM 7-2 


: ASM 


6000: 


6039: 
603A: 
603B: 
603C: 
603D: 
603E: 
603F: 
6040: 
6041: 
6042: 
6043: 
6044: 
6045: 
6046: 
6047: 
6048: 
6049: 
604A: 
604B: 
604C: 
604D: 
604E: 
604F : 
6050: 
6051: 
6052: 
6053: 
6054: 
6055: 


1 
2 
4c 55 60 3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
Wi 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
09 31 
63 32 
30 33 
63 34 
57 35 
63 36 
7E af 
63 38 
A5 39 
63 40 
CC 41 
63 42 
F3 43 
63 44 
1A 45 
64 46 
1B 47 
64 48 
1G 49 
64 50 
1D 51 
64 52 
1E 53 
64 54 
1F 55 
64 56 
20 57 
64 58 
AD 50 CO 59 


*COLLISION AND EXPLOSION* 


ORG 

JMP 
MLINE DS 
MLINEA DS 
BLINE DS 
DEPTH DS 
MHORIZ ODS 
BHORIZ ODS 
HORIZB =DS 
HORIZM DS 
BULON DS 
XCOUNT ODS 
DELAY DS 
BTEMP DS 
MTEMP DS 
ELINE DS 
ELINEA ODS 
EDEPTH ODS 
GRAPHICS = 
MIXOFF = 
HIRES = 
PAGE1 = 
HIGH = 
LOW = 
WAIT = 
PREAD = 
BUTTON = 


$6000 
PGM 


RR ROR RRP RP RR RRR RRR 
wo 


$C050 
$C052 
$C057 
$C054 
$1B 

$1A 

$FCA8 
$FB1E 
$C061 


;BUTTON 0 
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*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
*CONTINUE FOR ALL 7 SHAPES 


MSHPADR DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
BSHPADR ODFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
PGM LDA 


#<MSHAPE1 
#>MSHAPE1 
#<MSHAPE2 
#>MSHAPE2 
#<MSHAPE3 
#>MSHAPE3 
#<MSHAPE4 
#>MSHAPE4 
#<MSHAPE5 
#>MSHAPES 
#<MSHAPE6 
#>MSHAPE6 
#<MSHAPE7 
#>MSHAPE7 
#<BSHAPE1 
#>BSHAPE1 
#<BSHAPE2 
#>BSHAPE2 
#<BSHAPE3 
#>BSHAPE3 
#<BSHAPE4 
#>BSHAPE4 
#<BSHAPE5 
#>BSHAPES 
#<BSHAPE6 
#>B SHAPE6 
#<BSHAPE7 
#>BSHAPE7 
GRAPHICS 


;HIRES,P.1 
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Hi-Res Graphics and Animation Using Assembly Language 0100 0 0000000006608 eee e es eecccceccsec cece cess cee ccseees ceececssesececcosescese 


;CLEAR SCREEN 1 


;LOAD DELAY 
;DRAW BOTTOM LINE 


;DRAW TOP LINE 


3;SET LINE & DEPTH OF MAN 
3SET LINE FOR BULLET 
3READ PADDLE 

;DRAW MAN 


31S BULLET ON? 
31F YES, CONTINUE BULLET DRAW 
;IF NO, IS BUTTON PRESSED? 
3IF YES, DRAW BULLET 
;1F NO, 

DELAY AND 

ERASE MAN AND 

READ PADDLE AGAIN 
3;SET BULLET ON 


;LOAD BULLET SHAPE INTO BTEMP 
;DRAW BULLET & TEST FOR COLLISION 


;DELAY 


6058: AD 52 CO 60 LDA MIXOFF 
605B: AD 57 CO 61 LDA HIRES 
605E: AD 54 CO 62 LDA PAGE1 
6061: A9 00 63 LDA #$00 
6063: 85 1A 64 STA LOW 
6065: AQ 20 65 LDA #$20 
6067: 85 1B 66 STA HIGH 
6069: AO 00 67 ~=CLR1 LDY #$00 
606B: AQ 00 68 LDA #$00 
606D: 91 1A 69 CLR STA (LOW),Y 
606F: C8 70 INY 
6070: DO FB 71 BNE CLR 
6072: E6 1B 72 INC HIGH 
6074: AS 1B 73 LDA HIGH 
6076: C9 40 74 CMP #$40 
6078: 90 EF 15 BLT CLR1 
607A: AQ 50 76 LDA #$50 
607C: 8D OD 60 77 STA DELAY 
607F: A2 B7 78 LDX #$B7 
6081: AO 00 79 LDY #$00 
6083: BD 51 66 80 LDA HI,X 
6086: 85 1B 81 STA HIGH 
6088: BD 11 67 82 LDA LO,X 
608B: 85 1A 83 STA LOW 
608D: AQ 7F 84 LDA #$7F 
608F: 91 1A 85 LN STA (LOW),Y 
6091: C8 86 INY 
6092: CO 27 87 CPY #$27 
6094: 90 F9 88 BLT LN 
6096: A2 OC 89 LDX #$0C 
6098: AO 00 90 LDY #$00 
609A: BD 51 66 91 LDA HI,X 
609D: 85 1B 92 STA HIGH 
609F: BD 11 67 93 LDA LO,X 
60A2: 85 1A 94 STA LOW 
60A4: AQ 7F 95 LDA #$7F 
60A6: 91 1A 96 ~=6LLN1 STA (LOW) ,Y 
60A8: C8 97 INY 
60A9: CO 14 98 CPY #$14 
60AB: 90 F9 99 BLT LN1 

100 KKKKKKKEKK MAIN PROGRAM kkkkkk KKK 
60AD: 20 FE 60 101 JSR MINITIAL 
60B0: 20 OD 61 102 JSR BINITIAL 
60B3: 20 18 61 103 PADDLE JSR PDLE 
60B6: 20 53 61 104 JSR MDRAW 
60B9: AD OB 60 105 LDA BULON 
60BC: C9 01 106 CMP #$01 
60BE: FO 16 107 BEQ BULLET 
60C0: AD 61 CO 108 LDA BUTTON 
60C3: 30 OC 109 BMI BULLET1 
60C5: AD OD 60 110 LDA DELAY 
60C8: 20 A8 FC 111 JSR WAIT 
60CB: 20 53 61 112 JSR MDRAW 
60CE: 4C B3 60 113 JMP PADDLE 
60D1: A9 O01 114 BULLET! LDA #$01 
60D3: 8D 0B 60 115 STA BULON 
6006: 20 9D 61 116 BULLET JSR _ LOADBUL 
60D9: 20 CO 61 117 JSR BDRAW 
60DC: AD OD 60 118 LDA DELAY 
60DF: 20 A8 FC 119 JSR WAIT 
60E2: 20 FO 61 120 JSR BXDRAW 


3ERASE BULLET 


TORE O TOT CH EOE E ETRE RHEE EEE EE EEESEEEEEEEESE SEES EEE E SES EE EEE EESE SEES EEESEEEEEE SESE EEE E EEE eeeeeeeeeeeeeeeees 


60E5: 
60E8: 
60EB: 
60EC: 
60EE: 
60F1: 
60F3: 
60F5: 
60F8: 
60FB: 


60FE: 
6100: 
6103: 
6106: 
6107: 
6109: 
610C: 


610D: 
610F: 
6112: 
6114: 
6117: 


6118: 
611A: 
611D: 
611E: 
6121: 
6124: 
6126: 
6128: 
612B: 
612E: 
6131: 
6134: 
6137: 
613A: 
613B: 
613C: 
613F: 
6141: 
6144: 
6146: 
6148: 
614A: 
614D: 
614E: 
6150: 
6152: 


6153: 
6155: 
6158: 
615B: 
615E: 
6161: 
6163: 
6166: 
6168: 


61 
60 


121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 


JSR 
LDA 
SEC 
SBC 
STA 
CMP 
BLT 
JMP 
TOP JSR 
JMP 


MDRAW 
BLINE 


#$08 
BLINE 
#$05 

TOP 
PADDLE 
BINITIAL 
PADDLE 


3ERASE MAN 


;sMOVE BLINE UP 8 LINES 


;LESS THAN 5 LINES FROM TOP? 
3IF YES TAKE BRANCH 

;1F NO, READ PADDLE AGAIN 
sINITIALIZE BULLET LINE 
sREAD PADDLE 


KKKKKKKKKK SUBROUTINES KkKKKKKKKK 


MINITIAL LDA 
STA 
STA 
CLC 
ADC 
STA 


#$AA 
MLINE 
MLINEA 


#$0D 
DEPTH 


KKEKKKKKKKKKKKKKKKKKKKKEE 


BINITIAL LDA 
STA 
LDA 
STA 
RTS 


#$00 
BULON 
#$A4 
BLINE 


KKKKKKKKKEKKKEEKEEKKKKKKE 


PDLE LDX 
JSR 
TYA 
STA 
LDA 
CMP 
BEQ 
LDA 
STA 
PDLE1 LDY 
LDA 
STA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LOAD LDA 
STA 
INY 
CPY 
BLT 


#$00 
PREAD 


MHOR IZ 
BULON 
#$01 
PDLE1 
MHOR IZ 
BHORIZ 
MHOR IZ 
BYTETBL,Y 
HORIZM 
OFFSET,Y 


MSHPADR , X 
LOW 
MSHPADR+1 ,X 
HIGH 

#$00 
(LOW) ,Y 
MTEMP ,Y 


#$27 
LOAD 


KRKKKKKKKEKEKEKEKKEEKRKKKKKEK 


MDRAW LDA 
STA 
MDRAW1 ~=LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDX 


#$00 
XCOUNT 
MLINE 
HORIZM 
HI,X 
HIGH 
LO,X 
LOW 
XCOUNT 


;BULON = 0 IF 
BULLET NOT ON SCREEN 


sREAD PADDLE 0 
30-255 IN MHORIZ 


31S BULLET ON? 

3IF YES, TAKE BRANCH 

31F NO, SET BHORIZ EQUAL 
TO MHORIZ 


;CONVERT 0-255 TO 0-36 (BYTE) 
3MAN BYTE POSITION 

;GET SHAPE NUMBER 

;LOAD SHAPE INTO MTEMP 
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616B: Bl 1A 182 LDA (LOW) ,Y 
616D: 5D OF 60 183 EOR MTEMP,X 
6170: 91 1A 184 STA (LOW) ,Y 
6172: C8 185 INY 

6173: Bl 1A 186 LDA (LOW),Y 
6175: 5D 10 60 187 EOR MTEMP+1,X 
6178: 91 1A 188 STA (LOW) ,Y 
617A: C8 189 INY 

617B: Bl 1A 190 LDA (LOW),Y 
617D: 5D 11 60 191 EOR MTEMP+2,X 
6180: 91 1A 192 STA (LOW),Y 
6182: EE OC 60 193 INC XCOUNT 
6185: EE 0C 60 194 INC XCOUNT 
6188: EE 0C 60 195 INC XCOUNT 
618B: EE 03 60 196 INC MLINE 
618E: AD 03 60 197 LDA MLINE 
6191: CD 06 60 198 CMP DEPTH 
6194: 90 C2 199 BLT MDRAW1 
6196: AD 04 60 200 LDA MLINEA 3RESET LINE 
6199: 8D 03 60 201 STA MLINE 
619C: 60 202 


203 KKEKKKKKKEKEKEKEKKKKKKKKKKK 


619D: AC 08 60 204 LOADBUL LDY BHORIZ ;CONVERTS 0-255 TO 


61A0: B9 4B 64 205 LDA BYTETBL,Y SCREEN BYTE (0-36) 
61A3: 18 206 CLC 3ADD 2 TO ALIGN BULLET 
61A4: 69 02 207 ADC #$02 WITH GUN 

61A6: 8D 09 60 208 STA HORIZB sBULLET BYTE POSITION 
61A9: B9 4E 65 209 LDA OFFSET,Y ;GET BULLET SHAPE NUMBER 
61AC: OA 210 ASL ;LOAD BULLET SHAPE INTO BTEMP 
61AD: AA 211 TAX 

61AE: BD 47 60 212 LDA BSHPADR,X 

61B1: 85 1A 213 STA LOW 

61B3: BD 48 60 214 LDA BSHPADR+1,X 

61B6: 85 1B 215 STA HIGH 

61B8: AO 00 216 LDY #$00 

61BA: Bl 1A 217 LDA (LOW),Y 

61BC: 8D OE 60 218 STA BTEMP 

61BF: 60 219 RTS 


220 KKKKKKKKKKEKKEKKKKKKKKKKK 


61C0: AE 05 60 221 BDRAW LDX BLINE 


61C3: AC 09 60 222 LDY HORIZB 

61C6: BD 51 66 223 LDA HI,X 

61C9: 85 1B 224 STA HIGH 

61CB: BD 11 67 225 LDA LO,X 

61CE: 85 1A 226 STA LOW 

61D0: Bl 1A 227 LDA (LOW),Y 

61D2: 2D OE 60 228 AND BTEMP ;RESULT IS 0 IF NO COLLISION 
61D5: C9 00 229 CMP #$00 

61D7: FO 03 230 BEQ NOHIT 

61D9: 4C E4 61 231 JUMP COLLISION 

61DC: Bl 1A 232 NOHIT LDA (LOW),Y ;DRAW BULLET 
61DE: 4D OE 60 233 EOR BTEMP 

61E1: 91 1A 234 STA (LOW),Y 

61E3: 60 235 


236 REKKKKKKKKKKKKKKKKKKKKKEK 


61E4: 20 08 62 237 COLLISION JSR EXPLODE 


61E7: 20 OD 61 238 JSR BINITIAL 
61EA: 20 53 61 239 JSR MDRAW 3ERASE MAN 
61ED: 4C B3 60 240 JMP PADDLE 


241 RKKKKKKKKKKKKK KK KKK KKK 


61F0: AE 05 60 242 BXDRAW LDX BLINE ;BDRAW WITHOUT COLLISION TEST 
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61F3: 
61F6: 
61F9: 
61FB: 
61FE: 
6200: 
6202: 
6205: 
6207: 


6208: 
620B: 
620E: 
6210: 
6213: 
6216: 
6219: 
621C: 
621F: 
6221: 
6224: 
6227: 
622A: 
622D: 
6230: 
6232: 
6235: 
6238: 
623B: 
623E: 
6241: 
6243: 
6246: 
6249: 
624C: 


624D: 
6250: 
6253: 
6256: 
6258: 
625B: 
625D: 
6260: 
6262: 
6265: 
6267: 
626A: 
626D: 
6270: 
6273: 
6275: 
6278: 
627B: 


627C: 
627F: 
6282: 
6285: 
6287: 
628A: 


243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 


KEKKKKKKKEKKEKKEKKEKEKKEK 


LDY 
LDA 
STA 
LDA 
STA 
LDA 
EOR 
STA 
RTS 


EXPLODE JSR 


JSR 
LDA 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 


HORIZB 
HI,X 
HIGH 
LO,X 
LOW 
(LOW) ,Y 
BTEMP 
(LOW) ,Y 


INITE1 

DRAWE1 ;DRAW 
#$60 

WAIT 

INITE1 

DRAWE1] ; ERASE 
INITE2 

DRAWE1] ;DRAW 
#$BB 

WAIT 

INITE2 

DRAWE1 ERASE 
INITE3 

DRAWE1 ;DRAW 
#$BB 

WAIT 

INITE3 

DRAWE1 ERASE in 
INITE4 i 
DRAWE2 ;DRAW 

#$FF 

WAIT 

INITE4 

DRAWE2 ERASE 


KEKKKKKKKKKKEKKKKKKEKKKKKEK 


DRAWE1 


LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
EOR 
STA 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 


HORIZB ROUTINE FOR FIRST 3 
ELINE EXPLOSION SHAPES 
HI,X 

HIGH 

LO,Xx 

LOW 

XCOUNT 

(LOW) ,Y 

ESHAPE, X 

(LOW) ,Y 

XCOUNT 

ELINE 

ELINE 

EDEPTH 

DRAWE1 

ELINEA 

ELINE 


KKEKKKEKKKKEKKKKKKKKK KKK 


DRAWE2 


LDY 
LDX 
LDA 
STA 
LDA 
STA 


HORIZB sROUTINE FOR FOURTH 
ELINE EXPLOSION SHAPE 
HI,X 
HIGH 
LO,X 
LOW 
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628C: 
628F : 
6291: 
6294: 
6296: 
6299: 
629A: 
629D: 
629F : 
62A2: 
62A4: 
62A7: 
62AA: 
62AD: 
62B0: 
62B2: 
62B5: 
62B8: 


62B9: 
62BB: 
62BE: 
62C0: 
62C3: 
62C6: 
62C7: 
62C9: 
62CC: 
62CD: 
62CF: 
62D2: 
6204: 
6207: 
62DA: 
62DB: 
62DD: 
62E0: 
62E1: 
62E3: 
62E6: 
62E8: 
62EB: 
62EE: 
62EF: 
62F1: 
62F4: 
62F5: 
62F7: 
62FA: 
62FC: 
62FF: 
6302: 
6303: 
6305: 
6308: 


6309: 
630C: 
6312: 
6315: 
631B: 


eee eee ee eee eee eee eee eee eee eee eee eee eee rere eee Cece ee eee eee ere eee eee 


60 304 LDX XCOUNT 
305 LDA (LOW) ,Y 
64 306 EOR ESHAPE,X 
307 STA (LOW) ,Y 
60 308 INC XCOUNT 
309 INY 
60 310 LDX XCOUNT 
311 LDA (LOW),Y 
64 312 EOR ESHAPE,X 
313 STA (LOW),Y 
60 314 INC XCOUNT 
60 315 INC ELINE 
60 316 LDA ELINE 
60 317 CMP EDEPTH 
318 BLT DRAWE2 
60 319 LDA ELINEA 
60 320 STA ELINE 
321 RTS 
322 KEKKKKKKEKKKKEKEKKEKKKKEKK 
323 INITE1 LDA #$00 ;INITIALIZE FIRST EXPLOSION 
60 324 STA XCOUNT 
325 LDA #$09 
60 326 STA ELINEA 
60 327 STA ELINE 
328 CLC 
329 ADC #$05 
60 330 STA EDEPTH 
331 RTS 
332 INITE2 LDA #$05 ;INITIALIZE SECOND EXPLOSION 
60 333 STA XCOUNT 
334 LDA #$09 
60 335 STA ELINEA 
60 336 STA ELINE 
337 CLC 
338 ADC #$05 
60 339 STA EDEPTH 
340 RTS 
341 INITE3 LDA #$0A sINITIALIZE THIRD EXPLOSION 
60 342 STA XCOUNT 
343 LDA #$05 
60 344 STA ELINEA 
60 345 STA ELINE 
346 CLC 
347 ADC #$08 
60 348 STA EDEPTH 
349 RTS 
350 INITE4 LDA #$12 ; INITIALIZE FOURTH EXPLOSION 
60 351 STA XCOUNT 
352 LDA #$01 
60 353 STA ELINEA 
60 354 STA ELINE 
355 CLC 
356 ADC #$0C 
60 357 STA EDEPTH 
358 RTS 
359 REKKKKKKKKKKKKKKKKKKK KKK 
01 360 MSHAPE1 HEX OQOOEO1000E01000E01 ;MAN SHAPE TABLES 
01 00 OE 01 
01 361 HEX 004401007F00601F00 
00 60 1F 00 
00 362 HEX 301F00181F00001F00 
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631E: 
6324: 
6327: 
632D: 
6330: 
6333: 
6339: 
633C: 
6342: 
6345: 
634B: 
634E: 
6354: 
6357: 
635A: 
6360: 
6363: 
6369: 
636C: 
6372: 
6375: 
637B: 
637E: 
6381: 
6387: 
638A: 
6390: 
6393: 
6399: 
639C: 
63A2: 
63A5: 
63A8: 
63AE: 
63B1: 
63B7: 
63BA: 
63C0: 
63C3: 
63C9: 
63CC: 
63CF: 
63D5: 
63D8: 
63DE: 
63E1: 
63E7: 
63EA: 
63F0: 
63F3: 
63F6: 
63FC: 
63FF: 
6405: 
6408: 
640E: 
6411: 
6417: 
641A: 
641B: 
641C: 


00 
00 


MSHAPE2 
02 


MSHAPE3 
04 


MSHAPE4 
08 


01 
01 
00 


MSHAPE5S 
11 


MSHAPE6 
23 


MSHAPE7 
47 


BSHAPE1 
BSHAPE2 
BSHAPE3 


HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
HEX 


001F00001B00403100 


606000 
001C02001C02001C02 


000803007E01003E00 
003F00403F00003E00 
003E00003600003600 


006300 
003804003804003804 


001006007C03007C00 
007C00007E00007C00 
003800003800006C00 


004601 
007008007008007008 


00200C007807007801 
007801007801007801 
007000007000007000 


007000 
006011006011006011 


00401800700F007003 
007003007803007003 
006001006001003003 


001806 
004023004023004023 


00003100601F 006007 
007007007807006007 
006007006006006006 


00300C 
000047000047000047 


00006200403F00700F 
00580F004COF00400F 
00400F 004000006018 
003030 


01 ;BULLET SHAPES 


02 
04 
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641D: 08 398 BSHAPE4 HEX 08 


641E: 10 399 BSHAPES HEX 10 
641F: 20 400 BSHAPE6 HEX 20 
6420: 40 401 BSHAPE7 HEX 40 
6421: 28 22 1A 402 ESHAPE HEX 28221A2514 sEXPLOSION SHAPES - NO. 1 
6424: 25 14 
6426: 2C 52 44 403 HEX 2C5244320C 3NO. 2 
6429: 32 OC 
642B: 38 3E 7F 404 HEX 383E7F7E7E3F3F1C ;NO0. 3 
G42E: JE JE. SF SF. 1C 
6433: 18 06 7C 405 HEX 18067COF7C3F7E3F NO. 4 
6436: OF 7C 3F 7E 3F 
643B: 7C 7F 7C 406 HEX 7C7F7C3F7E3F7F1F 
643E: SF JE 3F 7F AF 
6443: 7E OF 7C 407 HEX 7EOF7C1F700F 4003 
6446: 1F 70 OF 40 03 
BYTETBL 
OFFSET 
HI 
LO 


2001 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B MLINE =$6003 MLINEA =$6004 
BLINE =$6005 DEPTH =$6006 MHORIZ =$6007 BHORIZ =$6008 
HORIZB =$6009 HORIZM =$600A BULON =$600B XCOUNT =$600C 
DELAY =$600D BTEMP =$600E MTEMP =$600F ELINE  =$6036 
ELINEA =$6037 EDEPTH =$6038 MSHPADR =$6039 BSHPADR =$6047 
PGM =$6055 CLR1 =$6069 CLR =$606D LN =$608F 
LN1 =$60A6 PADDLE =$60B3 BULLET1 =$60D1 BULLET =$60D6 
TOP =$60F8 MINITIAL=$60FE BINITIAL=$610D PDLE =$6118 
PDLEl =$612E LOAD =$6148 MDRAW =$6153 MDRAW1 =$6158 
LOADBUL =$619D BDRAW  =$61C0 NOHIT  =$61DC COLLISION=$61E4 
BXDRAW =$61F0 EXPLODE =$6208 DRAWE1 =$624D DRAWE2 =$627C 
INITE] =$62B9 INITE2 =$62CD INITE3 =$62E1 INITE4 =$62F5 
MSHAPE1 =$6309 MSHAPE2 =$6330 MSHAPE3 =$6357 MSHAPE4 =$637E 
MSHAPES =$63A5 MSHAPE6 =$63CC MSHAPE7 =$63F3 BSHAPE1 =$641A 
BSHAPE2 =$641B BSHAPE3 =$641C BSHAPE4 =$641D BSHAPES =$641E 
BSHAPE6 =$641F BSHAPE7 =$6420 ESHAPE =$6421 BYTETBL =$644B 
OFFSET =$654E HI =$6651 LO =$6711 GRAPHICS=$C050 
MIXOFF =$C052 PAGE1  =$C054 HIRES =$C057 BUTTON =$C061 
PREAD =$FBIE WAIT =$FCA8 


One last point. Run Program 7-2 and pay particular attention to the paddle 
control of the man movement while the explosion shapes are being drawn. You 
will see, if you look carefully enough, that the man becomes unresponsive to the 
paddle control until the explosion shapes are finished. An examination of the 
Program 7-2 flowchart will tell you why this is happening. The entire explosion 
routine is run before the program branches back for another paddle read. 
Because the explosion routine uses up some amount of time caused by all the 
delays between shapes, the program is interrupted momentarily. In many cases, 
however, including this one and the game program, such an interruption is 
acceptable because it is of fairly short duration and the man is not moving at 
some constant speed and thus doesn’t appear to “freeze” during the delay. In 
fact, the user’s attention would probably be riveted on the explosion rather than 


PRR Oe eee eee ee EE ee EEE EEE E EEE EEE E EEE ESOS EEE EE ESSE EEEEEEE REESE EEE E HEHEHE EEEO HEE EEE EEE EEE eeeeeEeeee 


on trying to move the man and so would hardly notice the unresponsiveness of 
the paddle (it’s hardly noticeable even when you're paying attention). 

Suppose, however, we have two plane shapes moving across the screen at 
the same time. When one is hit, the other will freeze in position until the explo- 
sion shapes have all been drawn and erased. This would be noticeable and 
should be avoided. We can solve this problem in the following way. In the 
EXPLODE subroutine, instead of inserting a delay between each draw and erase, 
we branch to a routine that will erase the man and read the paddle for another 
man draw and then return to the explosion. In other words, a program loop will 
replace the delays. The protocol would then be draw-loop-erase-draw-loop- 
erase, etc. The loop cannot use the same paddle read routine that’s already in the 
program because we don’t want to go through another bullet draw and collision 
test, and so we would have another routine that would consist of just erase man— 
paddle read— draw man. The time for the loop will almost assuredly not be as 
long as the delays already in the explosion routine and so we would probably 
have to introduce some time delay between the draw and erase cycles. The exact 
delays to insert would again be a matter of trial and error—we would just try 
different values until that second plane moved properly. 

This discussion emphasizes an important point about game design (or for 
that matter any program that is doing more than one thing at a time on the 
screen) and that is the time delays that are necessary to reduce shape flicker 
(and sometimes to slow the program down) are exactly the points where one 
can introduce program loops when one is expanding the program to do more 
things. We will see, for example, when we get to the game program, that an 
explosion sound routine is inserted in place of the delay between drawing and 
erasing the first explosion shape. The sound routine itself provides the necessary 
delay, and we end up with a program where the explosion looks the same as 
before, but now with an extra feature. 
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Scoring Stopping 
and Restarting 


A salesman with motives deplorable 

Showed an Apple game to a customer adorable. 
He said, “This game we'll now play 

Scores every which way, 

But scoring with you is preferable.” 


nic in game programs is almost a law of nature. I can’t think of one 
game program I've tried over the years that didn’t have some type of score rou- 
tine. Of course now that we’re experts in hi-res graphics, we can devise any type 
of scoring display we desire. We can choose our own number shapes, put them 
anywhere on the screen we want, enclose them in a scoring box with a title, 
even count in Roman numerals! But let’s not get too ambitious. The first pro- 
gram in this chapter discusses a simple scoring routine that’s used in the game 
program. The second program presents a routine of more general utility. We’re 
also going to discuss how to stop a program at a predetermined score and how 
to start it again from the keyboard. 


COUNTING BY ONES 
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In the following program (Program 8-1), we’re going to modify Program 7-2 
so that a score display, initially set to 000, increments by 1 each time the top line 
is hit by a bullet. When the score reaches 100, the program stops and can be 
restarted by pressing any key. The scoring routine in this program will be incor- 
porated into the game program. 

The numbers we'll be using to display the score are simply hi-res shapes 
depicting digits 0 to 9 (big surprise, eh? ). Each number shape is 1 byte wide by 
8 lines deep and the 10 shapes are stored in a table labeled NSHAPE. These 
shapes are accessed and printed in a way we haven’t seen before, just for variety’s 
sake and to show off our assembly language dexterity. In the PRINT subroutine, 
the beginning of each number shape is accessed by LDA NSHAPE,X. Because 
each number contains 8 bytes, when X = 0, the beginning of the first shape 
(digit 0) is accessed, when X = 8, the second shape (digit 1) is accessed, when 
X = 16, the third shape (digit 2 is accessed), etc. Once X is specified, PRINT 
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then accesses each byte of the designated shape in turn by LDA NSHAPE+1,X, 
LDA NSHAPE+2,x ...... LDA NSHAPE+7,X. As each byte of the number shape is 
retrieved, it is printed on a separate line, starting from line 184 to line 191, i.e., 
just below the bottom line the man is walking on. 

The lines where the shapes are to be drawn are specified as direct addresses 
from the hi-res screen memory map instead of from the line address tables—this 
Saves execution time and program space and is easy to do when dealing with 
small routines such as PRINT. (In fact, in some programs, if they’re large and 
complicated enough, the use of direct addresses may be called for just to get the 
program to run fast enough, as a table look-up is a time-consuming process. ) The 
draw instruction has the form STA $23D0,Y (this is for line 184)—$23D0 speci- 
fies the line, whereas Y specifies the horizontal position where the byte is to be 
drawn. 

To summarize—X specifies the number shape from 0 to 9, the line positions 
are specified directly in PRINT, and Y specifies the horizontal position. 

To see how all this works, let’s look at the SINITIAL subroutine that prints 
000 just below the bottom line at the center of the screen. This is done at the 
beginning of the program (line 105) to zero the counter. First, the Accumulator 
is loaded with #$00 (line 149). Memory locations labelled SUM and COUNTER 
are also zeroed (we'll get to these later). The next instruction, TAX (line 152), 
transfers the contents of the Accumulator, #$00, to the X register. Because X = 
0, when we go to the PRINT subroutine the first number shape (digit 0) will be 
printed. Line 153 loads Y with #$11, the horizontal position of the first or left- 141 
most digit in the counter display. JSR PRINT then prints 0 at that position. Y is 
then incremented and another 0 is printed at position #$12. Finally, a third 0 is Re 
printed at #$13—the loop stops when Y = #$14. The relationship of Y then to 
the counter digits is as follows: 


Now that we’ve zeroed the counter, let’s see how we count collision events. 
Every time a collision is detected, we do a INC SUM and JSR SCORE (lines 252 
and 253) in the COLLISION subroutine. In the SCORE subroutine, we load the 
Accumulator with SUM and compare the value to 10 (#$0A). If it’s not equal to 
10, we skip the branch in line 378 and multiply the number by 8. (Remember 
ASL multiplies by 2 and so three ASLs gives 2 X 2 X 2 = 8; if you don’t under- 
stand this, return this book for an immediate refund.) We multiply by 8 to access 
the proper number shape. Thus, when SUM = 1, X = 8 and digit 1 is accessed; 
when SUM = 2, X = 16 and digit 2 is accessed, and so on. We then transfer the 
number to X, load Y with #$13, and print with a JSR PRINT. The number is 
printed in the rightmost counter position so the counter will now display 001, 
002, etc. 

Suppose now the number in SUM has been incremented to 10. The branch 
at line 378 is taken and we go to C10 to increment COUNTER and load the 
Accumulator with COUNTER (lines 386 and 387). If the number in COUNTER 
is not equal to 10, the branch in line 389 is not taken and the number in 
COUNTER is multiplied by 8, transferred to X, and printed at position #$12 (Y = 
#$12, line 394). The middle counter digit wiil then be 1. We then zero SUM and 
jump back to SCORE to print a zero in the rightmost position. The counter now 
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displays 010, which is what we want because SUM = 10. Now when we incre- 
ment again, SUM will contain 1 and a 1 will be printed at Y = #$13. Because 
SUM is again less than 10, the branch to C10 is not taken and COUNTER retains 
its value of 1. Thus, the counter will display 011. The counting then continues. 
Each time SUM gets to 10, COUNTER is incremented by 1 and SUM is zeroed; 
COUNTER is printed in Y = #$12 and SUM in Y = #$13. 

With this routine we can count to essentially any number simply by specify- 
ing other counters, such as COUNTER1 for the 100s column, COUNTER2 for the 
1000s column, etc., and modifying the routine to access these counters at the 
appropriate times; e.g., when COUNTER reaches 10, COUNTER1 is incremented. 
by 1 and printed in #$11, and so on. Also, we’re not limited by the fact that a 
memory location can hold a maximum value of #$FF, as SUM and COUNTER 
never contain values greater than 10. 


STOPPING AT A PREDETERMINED SCORE 
AND RESTARTING WITH A KEYPRESS 
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SUM is the counter for the 1’s column and COUNTER for the 10’s column. 
Thus, when COUNTER gets to 10, it means the score has reached 100. The 
branch at line 389 is then taken and the program jumps to STOP1. Here 100 is 
printed in the counter display and the program then goes to STOP. At this rou- 
tine, the instruction BIT $CO00 accesses a soft switch that says watch for any 
keypress. BIT—Compare Accumulator BITS with contents of memory—is an 
instruction whose main functions I simply do not want to get into and you 
wouldn’t want to either if you saw what it does. Maybe in some future book on 
advanced techniques (Volume DCMXIII?) I'll discuss it, but for now I use it only 
to illustrate one of its more arcane but useful features—it can replace LDA or 
STA to access a soft switch, and it does so without damaging the contents of the 
Accumulator. 

To get back to line 407, BIT $C000 says watch for any keypress and the next 
line (BPL STOP) says if no key is pressed, go back and watch again. This loop 
continues until any key is pressed, at which point the program continues to BIT 
$C010, which accesses a soft switch to clear the keyboard strobe (the keyboard 
holds the last key pressed until either another key is pressed or until the strobe 
is cleared), and then finally to JMP PGM which starts the program over. Note 
that we don’t have to go back to the program starting line at $6000 for a restart 
because everything from $6000 to PGM has already been done and is in memory. 
(See flowchart on pages 142 and 143.) 


JPROGRAM 8-1 
:ASM 


1 *COLLISION AND EXPLOSION WITH SCORING* 
2 ORG $6000 
6000: 4C 57 60 3 JMP PGM 

= MLINE DS 1 

5 MLINEA DS 1 

6 BLINE DS 1 

7 DEPTH DS ¢L 

8 MHORIZ DS 1 

9 BHORIZ DS 1 

10 HORIZB ODS 1 

11 HORIZM ODS 1 

12 ~BULON DS 1 

13. XCOUNT DS 1 
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603B: 
603C: 
603D: 
603E: 
603F: 
6040: 
6041: 
6042: 
6043: 
6044: 
6045: 
6046: 
6047: 
6048: 
6049: 
604A: 
604B: 
604C: 
604D: 
604E: 
604F: 
6050: 
6051: 
6052: 
6053: 
6054: 
6055: 
6056: 
6057: 
605A: 
605D: 
6060: 
6063: 
6065: 
6067: 
6069: 
606B: 
606D : 
606F: 
6071: 
6072: 
6074: 


co 
co 
co 
co 


DELAY DS 1 
BTEMP DS; 2 
MTEMP DS 39 
ELINE DS 1 
ELINEA DS 1 
EDEPTH DS 1 

SUM DS:. I 
COUNTER DS 1 
GRAPHICS = $C050 
MIXOFF = $C052 
HIRES = $C057 
PAGE1 = $C054 
HIGH = $1B 
LOW = $1A 
WAIT = $FCA8 
PREAD = $FB1E 
BUTTON = $C061 ;BUTTON 0 


*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
*CONTINUE FOR ALL 7 SHAPES 
MSHPADR DFB_- #<MSHAPE1 

DFB #>MSHAPE1 

DFB #<MSHAPE2 

DFB #>MSHAPE2 

DFB #<MSHAPE3 

DFB #>MSHAPE3 

DFB #<MSHAPE4 


DFB  #>MSHAPE4 145 
DFB  #<MSHAPES5 
DFB  #>MSHAPES5 E 


DFB #<MSHAPE6 
DFB #>MSHAPE6 
DFB #<MSHAPE7 
DFB #>MSHAPE7 
BSHPADR DFB_ #<BSHAPE1 
DFB #>BSHAPE1 
DFB #<BSHAPE2 
DFB #>BSHAPE2 
DFB #<BSHAPE3 
DFB #>BSHAPE3 
DFB #<BSHAPE4 
DFB #>BSHAPE4 
DFB #<BSHAPE5S 
DFB #>BSHAPES 
DFB #<BSHAPE6 
DFB #>BSHAPE6 
DFB #<BSHAPE7 
DFB #>BSHAPE7 
PGM LDA GRAPHICS — ;HIRES,P.1 
LDA MIXOFF 
LDA HIRES 
LDA PAGE1 
LDA #$00 3CLEAR SCREEN 1 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY #$00 
LDA #$00 
CLR STA (LOW),Y 
INY 
BNE CLR 
INC HIGH 


6076: AS 1B 75 LDA HIGH 
6078: C9 40 76 CMP = #$40 
607A: 90 EF 77 BLT CLR1 
607C: AQ 50 78 LDA #$50 ;LOAD DELAY 
607E: 8D OD 60 79 STA DELAY 
6081: A2 B7 80 LDX #$B7 ;DRAW BOTTOM LINE 
6083: AO 00 81 LDY #$00 
6085: BD 3B 67 82 LDA HI,X 
6088: 85 1B 83 STA HIGH 
608A: BD FB 67 84 LDA LO,X 
608D: 85 1A 85 STA LOW 
608F: AQ 7F 86 LDA #$7F 
6091: 91 1A 87 LN STA (LOW),Y 
6093: C8 88 INY 
6094: CO 27 89 CPY #$27 
6096: 90 F9 90 BLT LN 
6098: A2 OC 91 LDX #$0C ;DRAW TOP LINE 
609A: AO 00 92 LDY #$00 
609C: BD 3B 67 93 LDA HI,X 
609F: 85 1B 94 STA HIGH 
60A1: BD FB 67 95 LDA LO,X 
60A4: 85 1A 96 STA LOW 
60A6: AQ 7F 97 LDA #$7F 
60A8: 91 1A 98 LNI1 STA (LOW),Y 
60AA: C8 99 INY 
60AB: CO 14 100 CPY #$14 
146 60AD: 90 F9 101 BLT LN1 
102 KkKKKKKKKK MAIN PROGRAM KKKKKKKKKK 
| 60AF: 20 03 61 103 JSR MINITIAL ;SET LINE & DEPTH OF MAN 
60B2: 20 12 61 104 JSR BINITIAL  ;SET LINE FOR BULLET 
60B5: 20 1D 61 105 JSR SINITIAL ;ZERO SCORE COUNTER 
60B8: 20 31 61 106 PADDLE JSR PDLE ;READ PADDLE 
60BB: 20 6C 61 107 JSR MDRAW ;DRAW MAN 
60BE: AD 0B 60 108 LDA BULON 
60C1: C9 01 109 CMP #$01 31S BULLET ON? 
60C3: FO 16 110 BEQ BULLET ;1F YES, CONTINUE BULLET DRAW 
60C5: AD 61 CO 111 LDA BUTTON 31F NO, IS BUTTON PRESSED? 
60C8: 30 OC 112 BMI BULLET1 ;1F YES, DRAW BULLET 
60CA: AD OD 60 113 LDA DELAY ;IF NO, 
60CD: 20 A8 FC 114 JSR WAIT DELAY AND 
60D0: 20 6C 61 115 JSR MDRAW ERASE MAN AND 
6003: 4C B8 60 116 JMP PADDLE READ PADDLE AGAIN 
60D6: A9 01 117 BULLET1 LDA #$01 ;SET BULLET ON 
6008: 8D 0B 60 118 STA BULON 
60DB: 20 B6 61 119 BULLET JSR _ LOADBUL ;LOAD BULLET SHAPE INTO BTEMP 
60DE: 20 D9 61 120 JSR BDRAW ;DRAW BULLET & TEST FOR COLLISION 
60E1: AD OD 60 121 LDA DELAY 
60E4: 20 A8 FC 122 JSR WAIT ;DELAY 
60E7: 20 OF 62 123 JSR BXDRAW ;ERASE BULLET 
60EA: 20 6C 61 124 JSR MDRAW ;ERASE MAN 
60ED: AD 05 60 125 LDA BLINE 
60F0: 38 126 SEC 
60F1: £9 08 127 SBC #$08 ;MOVE BLINE UP 8 LINES 
60F3: 8D 05 60 128 STA BLINE 
60F6: C9 05 129 CMP #$05 ;LESS THAN 5 LINES FROM TOP? 
60F8: 90 03 130 BLT TOP 31F YES TAKE BRANCH 
60FA: 4C B8 60 131 JMP PADDLE 31F NO, READ PADDLE AGAIN 
60FD: 20 12 61 132 TOP JSR BINITIAL INITIALIZE BULLET LINE 
6100: 4C B8 60 133 JMP PADDLE ;READ PADDLE 
134 KKKKKKKKKEK SUBROUTINES KkkKKKKKKK 
6103: A9 AA 135 MINITIAL LDA #$AA 
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6105: 
6108: 
610B: 
610C: 
610E: 
6111: 


6112: 
6114: 
6117: 
6119: 
611C: 


611D: 
611F: 
6122: 
6125: 
6126: 
6128: 
612B: 
612C: 
612E: 
6130: 


6131: 
6133: 
6136: 
6137: 
613A: 
613D: 
613F: 
6141: 
6144: 
6147: 
614A: 
614D: 
6150: 
6153: 
6154: 
6155: 
6158: 
615A: 
615D: 
615F: 
6161: 
6163: 
6166: 
6167: 
6169: 
616B: 


616C: 
616E: 
6171: 
6174: 
6177: 
617A: 
617C: 
617F: 
6181: 
6184: 


60 
60 


136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 


STA 
STA 
CLC 
ADC 
STA 


MLINE 
MLINEA 


#$0D 
DEPTH 


KREKKKKEKKKKKKKKKKKKK KKK 


BINITIAL LDA #$00 
STA BULON 
LDA #$A4 
STA BLINE 


KKKKKKKKKKKKKKKKKKKKKEK 


SINITIAL LDA #$00 
STA SUM 
STA COUNTER 


TAX 
#$11 


LDY 
PR JSR PRINT 
#$14 


INY 

CPY 

BLT PR 

RTS 
REKKEKKKEKKKKKKKKKKKKK 
PDLE LDX #$00 
JSR PREAD 
TYA 
STA 
LDA 
CMP 
BEQ 
LDA 
STA 
LDY 
LDA 
STA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
CPY 
BLT 
RTS 
REKKKEKKEKKEKKKEKKKEKKRKKKEK 
MDRAW LDA #$00 
STA XCOUNT 
LDX MLINE 
LDY HORIZM 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDX XCOUNT 
LDA (LOW),Y 


MHOR IZ 
BULON 
#$01 
PDLE1 
MHORIZ 
BHORIZ 
MHOR IZ 
BYTETBL,Y 
HOR IZM 
OFFSET,Y 


PDLE1 


MSHPADR , X 
LOW 
MSHPADR+1 , X 
HIGH 

#$00 
(LOW) ,Y 
MTEMP ,Y 


#$27 
LOAD 


LOAD 


MDRAW1 


;BULON = 0 IF 
BULLET NOT ON SCREEN 


3SCORE DISPLAYS THREE 0'S 


;READ PADDLE 0 
30-255 IN MHORIZ 


31S BULLET ON? 

;1F YES, TAKE BRANCH 

;1F NO, SET BHORIZ EQUAL 
TO MHORIZ 


;CONVERT 0-255 TO 0-36 (BYTE) 
sMAN BYTE POSITION 

;GET SHAPE NUMBER 

sLOAD SHAPE INTO MTEMP 


147 


148 


6186: 
6189: 
618B: 
618C: 
618E: 
6191: 
6193: 
6194: 
6196: 
6199: 
619B: 
619E: 
61Al: 
61A4: 
61A7: 
61AA: 
61AD: 
61AF: 
61B2: 
61B5: 


61B6: 
61B9: 
61BC: 
61BD: 
61BF: 
61C2': 
61C5: 
61C6: 
61C7: 
61CA: 
61CCs: 
61CF: 


61D1: 
61D3: 
61D5: 
61D8: 


61D9: 
61DC: 
61DF: 
61E2: 
61E4: 
61E7: 
61E9: 
61EB: 
61EE: 
61F0: 
61F2: 
61F5: 
61F7: 
61FA: 
61FC: 


61FD: 
6200: 
6203: 
6206: 
6209: 
620C: 


197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 


EOR 
STA 
INY 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 


MTEMP , X 
(LOW) ,Y 


(LOW) ,Y 
MTEMP+1,X 
(LOW) ,Y 


(LOW) ,Y 
MTEMP+2,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
MLINE 
MLINE 
DEPTH 
MDRAW1 
MLINEA 
MLINE 


KRKKKKEKKEKKKKKKKKKKKKKKK 


LOADBUL LDY 
LDA 
CLC 
ADC 
STA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 


BHORIZ 
BYTETBL,Y 


#$02 
HORIZB 
OFFSET,Y 


BSHPADR, X 
LOW 
BSHPADR+1, X 
HIGH 

#$00 
(LOW) ,Y 
BTEMP 


KEKKKKKKKEKEKKEKKEKKKKKKEK 


BDRAW LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
AND 
CMP 
BEQ 
JMP 
LDA 
EOR 
STA 
RTS 


NOHIT 


BLINE 
HORIZB 
HI,X 
HIGH 
LO,X 
LOW 
(LOW) ,Y 
BTEMP 
#$00 
NOHIT 
COLLISION 
(LOW) ,Y 
BTEMP 
(LOW) ,Y 


nKekkkkkKK KK KK KK KKK KKK 


COLLISION JSR 
INC 
JSR 
JSR 
JSR 
JMP 


EXPLODE 
SUM 
SCORE 
BINITIAL 
MDRAW 
PADDLE 


HREKKKEKEKKEK KK EREKKEREREE 


Poe eee eee eee eee eee eee eee ee eee ee ee eee ee ee eee ee eee eee eee 


sRESET LINE 


;CONVERTS 0-255 TO 
SCREEN BYTE (0-36) 
3ADD 2 TO ALIGN BULLET 
WITH GUN 
;BULLET BYTE POSITION 
;GET BULLET SHAPE NUMBER 
;LOAD BULLET SHAPE INTO BTEMP 


3RESULT IS 0 IF NO COLLISION 


3;DRAW BULLET 


3ADD 1 TO SCORE 
;DISPLAY SCORE 


;ERASE MAN 


eee eo ir rrr rrr rrr rrr rrr rer rrr re rrr errr er rere Scoring, Stopping, and Restarting 


620F: 
6212: 
6215: 
6218: 
621A: 
621D: 
621F: 
6221: 
6224: 
6226: 


6227: 
622A: 
622D: 
622F: 
6232: 
6235: 
6238: 
623B: 
623E: 
6240: 
6243: 
6246: 
6249: 
624C: 
624F: 
6251: 
6254: 
6257: 
625A: 
625D: 
6260: 
6262: 
6265: 
6268: 
626B: 


626C: 
626F: 
6272: 
6275: 
6277: 
627A: 
627C: 
627F: 
6281: 
6284: 
6286: 
6289: 
628C: 
628F : 
6292: 
6294: 
6297: 
629A: 


629B: 
629E: 
62A1: 
62A4: 
62A6: 


258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 


BXDRAW 


KKKKEKKKEKKKKKKKKKKKKKKEKK 


LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
EOR 
STA 


EXPLODE JSR 


JSR 
LDA 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 


BLINE sBDRAW WITHOUT COLLISION TEST 
HORIZB 

HI,X 

HIGH 

LO,X 

LOW 

(LOW) ,Y 

BTEMP 

(LOW) ,Y 


INITE1 

DRAWE1 ;DRAW 
#$60 

WAIT 

INITE1 

DRAWE1 ;ERASE 
INITE2 

DRAWE1 ;DRAW 
#$BB 

WAIT 

INITE2 

DRAWE1 ;ERASE 
INITE3 

DRAWE1 ;DRAW 
#$BB 


WAIT 

INITE3 

DRAWE1 ;ERASE 
INITE4 

DRAWE2 ;DRAW 
#$FF 

WAIT 

INITE4 

DRAWE2 ;ERASE 


KEKKKKKKEKEKKEEKKEEKEKEKKKKKK 


DRAWE1 


LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
EOR 
STA 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 


HORIZB sROUTINE FOR FIRST 3 
ELINE EXPLOSION SHAPES 
HI,X 

HIGH 

LO,X 

LOW 

XCOUNT 

(LOW) ,Y 

ESHAPE ,X 

(LOW) ,Y 

XCOUNT 

ELINE 

ELINE 

EDEPTH 

DRAWE1 

ELINEA 

ELINE 


KEKKKKEKKEKKKEKKEKKEKKKKKKEE 


DRAWE2 


LDY 
LDX 
LDA 
STA 
LDA 


HORIZB sROUTINE FOR FOURTH 
ELINE EXPLOSION SHAPE 
HI,X 
HIGH 
LO,X 


149 


150 


62A9: 
62AB: 
62AE: 
62B0: 
62B3: 
62B5: 
62B8: 
62B9: 
62BC: 
62BE: 
62C1: 
62C3: 
62C6: 
62C9: 
62CC: 
62CF: 
62D1: 
62D4: 
62D7: 


6208: 
62DA: 
62DD: 
62DF: 
62E2: 
62E5: 
62E6: 
62E8: 
62EB: 
62EC: 
62EE: 
62F1: 
62F3: 
62F6: 
62F9: 
62FA: 
62FC: 
62FF: 
6300: 
6302: 
6305: 
6307: 
630A: 
630D: 
630E: 
6310: 
6313: 
6314: 
6316: 
6319: 
631B: 
631E: 
6321: 
6322: 
6324: 
6327: 


6328: 
632B: 
632D: 
632F : 


60 
60 


319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
S77, 
378 
379 


STA 
LDX 
LDA 
EOR 
STA 
INC 
INY 
LDX 
LDA 
EOR 
STA 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 


teens 


FORO e eee eee HEHE EEO E EEE OEE EEE EEE EEE EHOEEE EES SEE EEEESEEES 


LOW 
XCOUNT 
(LOW) ,Y 
ESHAPE ,X 
(LOW) ,Y 
XCOUNT 


XCOUNT 
(LOW) ,Y 
ESHAPE ,X 
(LOW) ,Y 
XCOUNT 
ELINE 
ELINE 
EDEPTH 
DRAWE2 
ELINEA 
ELINE 


KEKKKEKKKKKEKKKEKKKKKKKKKEK 


INITEL LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
INITE2 LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
INITE3 LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
INITE4 LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 


#$00 ;INITIALIZE FIRST EXPLOSION 
XCOUNT 

#$09 

ELINEA 

ELINE 


#$05 
EDEPTH 


#$05 ;INITIALIZE SECOND EXPLOSION 
XCOUNT 

#$09 

ELINEA 

ELINE 


#$05 
EDEPTH 


#$0A sINITIALIZE THIRD EXPLOSION 
XCOUNT 

#$05 

ELINEA 

ELINE 


#$08 
EDEPTH 


#$12 ; INITIALIZE FOURTH EXPLOSION 
XCOUNT 

#$01 

ELINEA 

ELINE 


#$0C 
EDEPTH 


KRKKKKKEKKKKEKEKKKKKKKKEKK 


SCORE LDA 
CMP 
BEQ 
ASL 


SUM ;GET SCORE (0-9) 
#$0A sEQUAL TO 10? 
C10 ;IF YES, BRANCH 
;IF NO, MULTIPLY BY 8 


PPePES PEE EPEee eee reer ee ee eeeeee errr reer eee eee eee reer errr eee eee eee eee eee eee eee Scoring, Stopping, and Restarting 


6330: 
6331: 
6332: 
6333: 
6335: 
6338: 
6339: 
633C: 
633F: 
6341: 
6343: 
6344: 
6345: 
6346: 
6347: 
6349: 
634C: 
634E: 
6351: 
6354: 
6356: 
6358: 
635B: 
635D: 
635F: 
6362: 
6364: 
6367: 
636A: 
636C: 
636F: 


6372: 
6375: 
6378: 
637B: 
637E: 
6381: 
6384: 
6387: 
638A: 
638D: 
6390: 
6393: 
6396: 
6399: 
639C: 
639F: 
63A2: 


63A3: 
63A6: 
63AB: 
63AE: 
63B3: 
63B6: 
63BB: 
63BE: 
63C3: 
63C6: 
63CB: 


60 
60 


60 
63 


22 


22 22 IC 


oc 


08 08 1C 


22 


08 04 3E 


22 


20 22 1C 


18 


3E 10 10 


02 


380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 


431 
432 
433 
434 
435 


ASL 
ASL 
TAX 
LDY 
JSR 
RTS 
C10 INC 
LDA 
CMP 
BEQ 
ASL 
ASL 
ASL 
TAX 
LDY 
JSR 
LDA 
STA 
JMP 
STOP 1 LDX 
LDY 
JSR 
LDX 
LDY 
JSR 
LDY 
JSR 
STOP BIT 
BPL 
BIT 
JMP 


#$13 ;BYTE POSITION FOR FIRST DIGIT 
PRINT sPRINT DIGIT 


COUNTER 3INC COUNTER (INITIALLY 0) 

COUNTER 

#$0A sEQUAL TO 10? 

STOP1 31F YES, PRINT 100 AND STOP GAME 
3IF NO, MULTIPLY BY 8 


#$12 ;BYTE POSITION OF MIDDLE DIGIT 
PRINT ;PRINT DIGIT 

#$00 ;ZERO SUM AND 

SUM RETURN TO PRINT O 

SCORE IN FIRST DIGIT POSITION 
#$08 ;ACCESSES DIGIT "1" 

#$11 sBYTE POSITION OF LEFTMOST DIGIT 
PRINT ;PRINT DIGIT 

#$00 ;ACCESSES DIGIT "0" 

#$12 ;BYTE POSITION OF MIDDLE DIGIT 
PRINT sPRINT DIGIT 

#$13 ;BYTE POSITION OF FIRST DIGIT 
PRINT sPRINT DIGIT 

$C000 sANY KEY PRESSED? 

STOP ;IF NO, BRANCH BACK & WAIT 

$C010 ;IF YES, CLEAR KEYBOARD STROBE AND 
PGM START PROGRAM OVER 


KEKKKKKKEEKKEKEKKEKKKKKKKRKKKK 


PRINT LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 


NSHAPE,X  ;RETRIEVE NUMBER SHAPE 
$23D0,Y ;LINE #$B8 (184) 
NSHAPE+1 ,X 

$27D0,Y ;LINE #$B9 (185) 
NSHAPE+2 ,X 

$2BD0,Y ;LINE #$BA (186) 
NSHAPE+3 , X 

$2FD0,Y ;LINE #$BB (187) 
NSHAPE+4, X 

$33D0,Y ;LINE #$BC (188) 
NSHAPE+5 , X 

$37D0,Y ;LINE #$BD (189) 
NSHAPE+6 , X 

$3BD0,Y ;LINE #$BE (190) 
NSHAPE+7 ,X 

$3FD0,Y ;LINE #$BF (191) 


KKKKKEKKEKKEKEKEKKEKEEKKEKKKKKKRKEK 


NSHAPE HEX 
HEX 
HEX 
HEX 
HEX 


HEX 


001022222222221C sNUMBER SHAPES - "0" 
00080C080808081C Sei 
001C22201008043E He 4 
001022201C20221C ae 
00101814123E1010 <nqn 


003E021E2020201E hel a 


151 


63CE: 1E 20 20 20 LE 


63D3: 00 1C 22 436 HEX 001€22021E22221C "6" 
63D6: O02 1E 22 22 1C 
63DB: 00 3E 20 437 HEX 003E201008040404 a lla 
63DE: 10 08 04 04 04 
63E3: 00 1C 22 438 HEX 001022221C22221C 78" 
63E6:: '22-1C 22 22) 1C 
63EB: 00 1C 22 439 HEX 001022223C20221C sfQ" 


OSEE:: 22 3C: 20) 22: 1C 
63F3: 00 OE 01 440 MSHAPE1 HEX OOOEO1000E01000E01 ;MAN SHAPE TABLES 
63F6: 00 OE 01 00 OE 01 


63FC: 00 44 01 441 HEX 004401007F00601F00 
63FF: 00 7F 00 60 1F 00 

6405: 30 1F 00 442 HEX 301F00181F00001F00 
6408: 18 1F 00 00 1F 00 

640E: 00 1F 00 443 HEX 001F00001B00403100 
6411: 00 1B 00 40 31 00 

6417: 60 60 00 444 HEX 606000 


641A: 00 1C 02 445 MSHAPE2 HEX 001C02001C02001C02 
641D: 00 1C 02 00 1C 02 


6423: 00 08 03 446 HEX 000803007E01003E00 
6426: 00 7E 01 00 3E 00 
642C: 00 3F 00 447 HEX 003F00403F00003E00 
642F: 40 3F 00 00 3£ 00 
6435: 00 3E 00 448 HEX 003£00003600003600 
6438: 00 36 00 00 36 00 
152 643E: 00 63 00 449 HEX 006300 
6441: 00 38 04 450 MSHAPE3 HEX 003804003804003804 
i 6444: 00 38 04 00 38 04 
644A: 00 10 06 451 HEX 001006007C03007C00 
644D: 00 7C 03 00 7C 00 
6453: 00 7C 00 452 HEX 007C00007E00007C00 
6456: 00 7E 00 00 7C 00 
645C: 00 38 00 453 HEX 003800003800006C00 
645F: 00 38 00 00 6C 00 
6465: 00 46 01 454 HEX 004601 


6468: 00 70 08 455 MSHAPE4 HEX 007008007008007008 
646B: 00 70 08 00 70 08 


6471: 00 20 0C 456 HEX 00200C007807007801 
6474: 00 78 07 00 78 O01 

647A: 00 78 01 457 HEX 007801007801007801 
647D: 00 78 01 00 78 01 

6483: 00 70 00 458 HEX 007000007000007000 
6486: 00 70 00 00 70 00 

648C: 00 70 00 459 HEX 007000 


648F: 00 60 11 460 MSHAPES HEX 006011006011006011 
6492: 00 60 11 00 60 11 


6498: 00 40 18 461 HEX 00401800700F007003 
649B: 00 70 OF 00 70 03 

64Al1: 00 70 03 462 HEX 007003007803007003 
64A4: 00 78 03 00 70 03 

64AA: 00 60 01 463 HEX 006001006001003003 
64AD: 00 60 01 00 30 03 

64B3: 00 18 06 464 HEX 001806 


64B6: 00 40 23 465 MSHAPE6 HEX 004023004023004023 
64B9: 00 40 23 00 40 23 


64BF: 00 00 31 466 HEX 00003100601F006007 
64C2: 00 60 1F 00 60 07 
64C8: 00 70 07 467 HEX 007007007807006007 


64CB: 00 78 07 00 60 07 
64D1: 00 60 07 468 HEX 006007006006006006 


PERRO Hee EEE OHHH E EEE H HEHE EEEE EEE EEEE EEE E EEE E EERE EEE EEE EESEEEEEESE EEE EEE HE EEE EEE EEE EEE EE EEEES, 


64D4: 00 60 06 00 60 
64DA: 00 30 0C 469 
64DD: 00 00 47 470 
64E0: 00 00 47 00 00 
64E6: 00 00 62 471 
64E9: 00 40 3F 00 70 
64EF: 00 58 OF 472 
64F2: 00 4C OF 00 40 
64F8: 00 40 OF 473 
64FB: 00 40 OD 00 60 
6501: 00 30 30 474 


6504: 01 475 
6505: 02 476 
6506: 04 477 
6507: 08 478 
6508: 10 479 
6509: 20 480 
650A: 40 481 
650B: 28 22 1A 482 
650E: 25 14 

6510: 2C 52 44 483 
6513: 32 OC 


6515: 38 3E 7F 484 
6518: 7E 7E 3F 3F 1C 
651D: 18 06 7C 485 
6520: OF 7C 3F 7E 3F 
6525: 7C 7F 7C 486 
6528s: SF. 7E SF 7F IF 
652D: 7E OF 7C 487 
6530: 1F 70 OF 40 03 


2235 bytes 


Symbol table - numerical order: 


LOW 
BLINE 
HORIZB 
DELAY 
ELINEA 
MSHPADR 
CLR 
BULLET1 


BINITIAL 


PDLE1 
LOADBUL 
BXDRAW 
INITE1 
SCORE 
PRINT 
MSHAPE3 
MSHAPE7 
BSHAPE4 
ESHAPE 
LO 
HIRES 


=$1A 

=$6005 
=$6009 
=$600D 
=$6037 
=$603B 
=$606F 
=$60D6 
=$6112 
=$6147 
=$61B6 
=$620F 
=$62D8 
=$6328 
=$6372 
=$6441 


Scoring, Stopping, and Restarting 


06 
HEX 00300C 
MSHAPE7 HEX 000047000047000047 
47 
HEX 00006200403F00700F 
OF 
HEX O00580F004COFO0400F 
OF 
HEX 00400F00400D006018 
18 
HEX 003030 
BSHAPE1 HEX 01 ;BULLET SHAPES 
BSHAPE2 HEX 02 
BSHAPE3 HEX 04 
BSHAPE4 HEX 08 
BSHAPES HEX 10 
BSHAPE6 HEX 20 
BSHAPE7 HEX 40 
ESHAPE HEX 28221A2514 3EXPLOSION SHAPES 
HEX 2C5244320C 3NO. 2 
HEX 383E7F7E7E3F3F1C ;NO0. 3 
HEX 18067COF7C3F7E3F ;NO. 4 
HEX 7C7F7C3F7E3F7F1F 
HEX 7EOF7C1F700F4003 
BYTETBL 
OFFSET 
HI 
LO 
HIGH =$1B MLINE =$6003 MLINEA 
DEPTH  =$6006 MHORIZ =$6007 BHORIZ 
HORIZM =$600A BULON =$600B XCOUNT 
BTEMP =$600E MTEMP =$600F ELINE 
EDEPTH =$6038 SUM =$6039 COUNTER 
BSHPADR =$6049 PGM =$6057 CLR1 
LN =$6091 LN1 =$60A8 PADDLE 
BULLET =$60DB TOP =$60FD MINITIAL 
SINITIAL=$611D PR =$6128 PDLE 
LOAD =$6161 MDRAW =$616C MDRAW1 
BDRAW =$61D9 NOHIT  =$61F5 COLLISIO 
EXPLODE =$6227 DRAWE1 =$626C DRAWE2 
INITE2 =$62EC INITE3 =$6300 INITE4 
C10 =$6339 STOP1  =$6354 STOP 
NSHAPE =$63A3 MSHAPE1 =$63F3 MSHAPE2 
MSHAPE4 =$6468 MSHAPES =$648F MSHAPE6 
BSHAPE1 =$6504 BSHAPE2 =$6505 BSHAPE3 
BSHAPES =$6508 BSHAPE6 =$6509 BSHAPE7 
BYTETBL =$6535 OFFSET =$6638 HI 
GRAPHICS=$C050 MIXOFF =$C052 PAGE1 
BUTTON =$C061 PREAD =$FBI1E WAIT 


- NO. 1 


=$6004 
=$6008 
=$600C 
=$6036 
=$603A 
=$606B 
=$60B8 
=$6103 
=$6131 
=$6171 
N=$61FD 
=$629B 
=$6314 
=$6367 
=$641A 
=$64B6 
=$6506 
=$650A 
=$673B 
=$C054 
=$FCA8 
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COUNTING BY MULTIPLES AND DECREMENTING SCORE 


ERR R eee eee EOE EEE T EE TEE EO EE EEE E EEE SHEESH EEE® 


The counting routine in Program 8-1 fits in well with our game program 
where we increment the score by 1 every time a plane is hit, and stop the 
program when we reach 100 (or until 100 planes have appeared ). However, it 
does have some limitations. First, if we want to increment in jumps greater than 
one, we have a problem. If we increment by 3 and go from 9 to 12, for example, 
the counter will display 010 because SUM is zeroed after we increment 
COUNTER. Second, if we want to decrement the score, say by 1 each time the 
bullet is fired, the routine will not handle this at the 9-0 boundaries (e.g., from 
10 to 9), and there would also be a problem if the score is decremented while at 
000. The following program (Program 8-2) presents a score routine that solves 
all these problems. 

The SINITIAL and PRINT subroutines are the same in Program 8-2 as in 
Program 8-1 and again we use SUM as the 1’s counter and COUNTER as the 10’s 
counter. The differences are in the MAIN PROGRAM, COLLISION, and SCORE 
routines. In the MAIN PROGRAM, we decrement the score by one each time a 
bullet is fired and jump to SCORE to display the count (lines 119 and 120). In 
COLLISION, SUM is incremented by three each time a collision is detected (lines 
254 to 256). Let’s see how the SCORE routine handles these changes. 

First, we load the Accumulator with SUM and compare to #$FF. If SUM 
initially contains zero, as it would if the count were 010, 020, 030, etc., and is 
then decremented by 1 before we jump to the SCORE routine, we want to 
change its value to 9 and then decrement COUNTER by 1. Decrementing #$00 
by 1 results in a value of #$FF. Thus, SUM would contain #$FF and the branch at 
line 382 would not be taken. The program would continue to line 383 where 
#809 is loaded into SUM and COUNTER is decremented by 1. We now want to 
see if the score was at 000 at the time SUM was decremented by a bullet firing— 
obviously at this point we don’t want to decrement the score, but rather retain 
the 000 display. If the score is 000, then both SUM and COUNTER contain zero. 
Thus, decrementing COUNTER will yield a value of #$FF and the branch at line 
388 will not be taken. The program would continue to line 389 where 
COUNTER and SUM are both set to zero in preparation for printing 000. These 
CMP #$FF instructions then are used for the special situations where either SUM 
= 0 and is decremented, or where both SUM and COUNTER = 0 and SUM is 
decremented. 

If SUM doesn’t contain zero before decrementing or is simply not decre- 
mented, SUM will not contain #$FF, the branch at line 382 is taken, and the 
program proceeds to C1 (line 392). Here SUM is compared to 10 and if less than 
10, the program branches to C10 for the same print routine as in Program 8-1. If 
SUM equals or is greater than 10, the branch at line 394 is not taken, COUNTER 
is incremented by 1, 10 is subtracted from SUM, and the count is then printed. 
Thus, if SUM contains 12, subtracting 10 leaves 2 in SUM. This figure is then 
printed in the rightmost digit position, and COUNTER will contain 1, which is 
printed in the middle digit position, producing the display 012. 
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LOAD SHAPE ADDRESSES 
INTO SHPADR 
DISPLAY AND 
CLEAR SCREEN 
DRAW TOP AND 
BOTTOM LINES 


MINITIAL — SET 
LINE AND DEPTH 


BINITIAL — SET LINE 
AND BULLET OFF 
(BULON = 0) 


READ PADDLE 
No 
BULLET ON? SET BHORIZ = MHORIZ 
DRAW MAN 155 
Y 
BULLET ON? 


No 


BUTTON PRESSED? 
No 


Yes 


SET BULLET ON (BULON = 1) 
DEC SCORE BY 1 AND DISPLAY ,; 


AND BTEMP WITH 
SCREEN BYTE 


COLLISION? 


No 


DRAW BULLET 


DELAY 
AND BULLET DISPLAY SCORE STOP GAME 


MOVE BLINE 

eerie BINITIAL 
<5 LINES 

FROM TOP? ERASE MAN 


Yes 


ERASE MAN 


DRAW AND ERASE 
EXPLOSION SHAPES 
INC SCORE BY 3 


SCORE = 100? 


Yes 


DISPLAY 100 


No 
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PROGRAM 8-2 
> ASM 


6000: 4C 57 60 


603B: 1E 
603C: 64 
603D: 45 
603E: 64 
603F: 6C 
6040: 64 
6041: 93 
6042: 64 
6043: BA 
6044: 64 
6045: El 
6046: 64 
6047: 08 
6048: 65 
6049: 2F 
604A: 65 
604B: 30 
604C: 65 
604D: 31 
604E: 65 
604F: 32 
6050: 65 
6051: 33 
6052: 65 
6053: 34 


WOONADNPWNMrHE 


*COLLISION AND EXPLOSION WITH SCORING*DECREMENTING SCORE 
ORG 


$6000 

JMP PGM 
MLINE DS 1 
MLINEA DS 1 
BLINE DS 1 
DEPTH DS 1 
MHORIZ DS 1 
BHORIZ DS 1 
HORIZB DS 1 
HORIZM DS 1 
BULON DS »1 
XCOUNT DS 1 
DELAY DS 1 
BTEMP DS; 2 
MTEMP DS 39 
ELINE DS.~ 1 
ELINEA DS. -1 
EDEPIH’ .DS:; 2 
SUM DS: 2 
COUNTER DS 1 
GRAPHICS = $C050 
MIXOFF == $C052 
HIRES = $C057 
PAGE1 = $C054 
HIGH = $1B 
LOW = $1A 
WAIT = $FCA8 
PREAD = $FB1E 
BUTTON = $C061 ;BUTTON 0 


*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
*CONTINUE FOR ALL 7 SHAPES 
MSHPADR DFB  #<MSHAPE1 
DFB #>MSHAPE1 
DFB #<MSHAPE2 
DFB #>MSHAPE2 
DFB #<MSHAPE3 
DFB #>MSHAPE3 
DFB #<MSHAPE4 
DFB #>MSHAPE4 
DFB #<MSHAPE5 
DFB #>MSHAPE5 
DFB #<MSHAPE6 
DFB #>MSHAPE6 
DFB  #<MSHAPE7 
DFB #>MSHAPE7 
BSHPADR DFB #<BSHAPE1 
DFB #>BSHAPE1 
DFB #<BSHAPE2 
DFB #>BSHAPE2 
DFB #<BSHAPE3 
DFB #>BSHAPE3 
DFB #<BSHAPE4 
DFB #>BSHAPE4 
DFB #<BSHAPE5S 
DFB #>BSHAPE5S 
DFB #<BSHAPE6 
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6054: 
6055: 
6056: 
6057: 
605A: 
605D: 
6060: 
6063: 
6065: 
6067: 
6069: 
606B: 
606D: 
606F : 
6071: 
6072: 
6074: 
6076: 
6078: 
607A: 
607C: 
607E: 
6081: 
6083: 
6085: 
6088: 
608A: 
608D: 
608F : 
6091: 
6093: 
6094: 
6096: 
6098: 
609A: 
609C: 
609F: 
60A1: 
60A4: 
60A6: 
60A8: 
60AA: 
60AB: 
60AD: 


60AF : 
60B2: 
60B5: 
60B8: 
60BB: 
60BE: 
60C1: 
60C3: 
60C5: 
60C8: 
60CA: 
60CD: 
60D0: 


co 
CO 
co 
co 


60 


67 
68 


67 


PGM 


LN 


LN1 


KkKKKKKKKKK MAIN PROGRAM KRKKKKKKKKK 


PADDLE 


DFB 
DFB 
DFB 
LDA 
LDA 
LDA 
LDA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
BNE 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
INY 
CPY 
BLT 
LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
INY 
CPY 
BLT 


JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
CMP 
BEQ 
LDA 
BMI 
LDA 
JSR 
JSR 


#>B SHAPE6 
#<BSHAPE7 
#>BSHAPE7 
GRAPHICS 
MIXOFF 
HIRES 
PAGE1 
#$00 

LOW 

#$20 

HIGH 

#$00 

#$00 
(LOW) ,Y 


CLR 
HIGH 
HIGH 
#$40 
CLR1 
#$50 
DELAY 
#$B7 
#$00 
HI,X 
HIGH 
LO,X 
LOW 
#$7F 
(LOW) ,Y 


#$27 

LN 

#$0C 
#$00 
HI,X 
HIGH 
LO,X 
LOW 
#$7F 
(LOW) ,Y 


#$14 
LN1 


MINITIAL 
BINITIAL 
SINITIAL 
PDLE 
MDRAW 
BULON 
#$01 
BULLET 
BUTTON 
BULLET1 
DELAY 
WAIT 
MDRAW 


;ZERO SCORE COUNTER 
;READ PADDLE 
;DRAW MAN 


31S BULLET ON? 


31F NO, IS BUTTON PRESSED? 
31F YES, DRAW BULLET 


sHIRES,P.1 


;CLEAR SCREEN 1 


;LOAD DELAY 
;DRAW BOTTOM LINE 
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;DRAW TOP LINE 


3SET LINE & DEPTH OF MAN 
;SET LINE FOR BULLET 


31F YES, CONTINUE BULLET DRAW 


;IF NO, 
DELAY AND 
ERASE MAN AND 
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60D3: 
60D6: 
60D8: 
60DB: 
60DE: 
60E1: 
60E4: 
60E7: 
60EA: 
60ED: 
60F0: 
60F3: 
60F6: 
60F7: 
60F9: 
60FC: 
60FE: 
6100: 
6103: 
6106: 


6109: 
610B: 
610E: 
6111: 
6112: 
6114: 
6117: 


6118: 
611A: 
611D: 
611F: 
6122: 


6123: 
6125: 
6128: 
612B: 
612C: 
612E: 
6131: 
6132: 
6134: 
6136: 


6137: 
6139: 
613C: 
613D: 
6140: 
6143: 
6145: 
6147: 
614A: 
614D: 


6150: 
6153: 
6156: 


60 
60 


116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 


JMP 
BULLET1 LDA 
STA 
DEC 
JSR 
BULLET JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
LDA 
SEC 
SBC 
STA 
CMP 
BLT 
JMP 
TOP JSR 
JMP 


PADDLE 
#$01 
BULON 
SUM 
SCORE 
LOADBUL 
BDRAW 
DELAY 
WAIT 
BXDRAW 
MDRAW 
BLINE 


#$08 
BLINE 
#$05 

TOP 
PADDLE 
BINITIAL 
PADDLE 


eee eee eee eer errs 


READ PADDLE AGAIN 
;SET BULLET ON 


;DECREMENT SUM AND 

DISPLAY SCORE 
;LOAD BULLET SHAPE INTO BTEMP 
;DRAW BULLET & TEST FOR COLLISION 


;DELAY 
;ERASE BULLET 
;ERASE MAN 


;MOVE BLINE UP 8 LINES 


;LESS THAN 5 LINES FROM TOP? 
31F YES TAKE BRANCH 

;IF NO, READ PADDLE AGAIN 
sINITIALIZE BULLET LINE 
;READ PADDLE 


KkKKKKKKKK SUBROUTINES KKKKKKKKKK 


MINITIAL LDA 
STA 


STA 
CLC 
ADC 
STA 
RTS 


#$AA 
ML INE 
MLINEA 


#$0D 
DEPTH 


KAEKKKKKKKEKKKKKEKEKREKKKEK 


BINITIAL LDA 
STA 
LDA 
STA 


#$00 
BULON 
#$A4 
BLINE 


KKKKKKEKRKEKKKEKKEKKKKRKKKE 


SINITIAL LDA 
STA 
STA 
TAX 
LDY 
PR JSR 
INY 
CPY 
BLT 
RTS 


#$00 
SUM 
COUNTER 


#$11 
PRINT 


#$14 
PR 


KRKKKEKKKKEKEEKEKKKKKKKEK 


PDLE LDX 
JSR 
TYA 
STA 
LDA 
CMP 
BEQ 
LDA 
STA 
PDLE1 LDY 
LDA 
STA 
LDA 


#$00 
PREAD 


MHOR IZ 
BULON 
#$01 
PDLE1 
MHOR IZ 
BHORIZ 
MHORIZ 
BYTETBL,Y 
HOR IZM 
OFFSET,Y 


;BULON = O IF 
BULLET NOT ON SCREEN 


;SCORE DISPLAYS THREE 0'S 


;READ PADDLE 0 
30-255 IN MHORIZ 


31S BULLET ON? 

31F YES, TAKE BRANCH 

31F NO, SET BHORIZ EQUAL 
TO MHORIZ 


;CONVERT 0-255 TO 0-36 (BYTE) 
3sMAN BYTE POSITION 
;GET SHAPE NUMBER 


6159: 
615A: 
615B: 
615E: 
6160: 
6163: 
6165: 
6167: 
6169: 
616C: 
616D: 
616F: 
Ohl 


6172: 
6174: 
6177: 
617A: 
617D: 
6180: 
6182: 
6185: 
6187: 
618A: 
618C: 
618F: 
6191: 
6192: 
6194: 
6197: 
6199: 
619A: 
619C: 
619F: 
61A1: 
61A4: 
61A7: 
61AA: 
61AD: 
61B0: 
61B3: 
61B5: 
61B8: 
61BB: 


61BC: 
61BF: 
61C2: 
61C3: 
61C5: 
61C8: 
61CB: 
61CC: 
61CD: 
61D0: 
61D2: 
61D5: 
6107: 
61D9: 


175 
176 
LIT 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 


"eL9S 


196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 


ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
CPY 
BLT 


LOAD 


MSHPADR , X 
LOW 
MSHPADR+1 , X 
HIGH 

#$00 
(LOW) ,Y 
MTEMP ,Y 


#$27 
LOAD 


KEKKKKKEKKKKKKKKKKKKKKKK 


MDRAW LDA 
STA 
LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 


MDRAW1 


#$00 
XCOUNT 
MLINE 
HOR IZM 
HI,X 
HIGH 
LO,X 
LOW 
XCOUNT 
(LOW) ,Y 
MTEMP ,X 
(LOW) ,Y 


(LOW) ,Y 
MTEMP+1,X 
(LOW) ,Y 


(LOW) ,Y 
MTEMP+2,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
MLINE 
MLINE 
DEPTH 
MDRAW1 
MLINEA 
MLINE 


KHKKKKKKKEKKKEKEKKEKKKEE 


LOADBUL LDY 
LDA 
CLC 
ADC 
STA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 


BHORIZ 
BYTETBL,Y 


#$02 
HORIZB 
OFFSET,Y 


BSHPADR,X 
LOW 
BSHPADR+1, X 
HIGH 

#$00 
(LOW) ,Y 


;LOAD SHAPE INTO MTEMP 


sRESET LINE 


;CONVERTS 0-255 TO 
SCREEN BYTE (0-36) 

3ADD 2 TO ALIGN BULLET 
WITH GUN 

;sBULLET BYTE POSITION 

3;GET BULLET SHAPE NUMBER 


;LOAD BULLET SHAPE INTO BTEMP 


Scoring, Stopping, and Restarting 
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160 


61DB: 
61DE: 


61DF: 
61E2: 
61E5: 
61E8: 
61EA: 
61ED: 
61EF: 
61F1: 
61F4: 
61F6: 
61F8: 
61FB: 
61FD: 
6200: 
6202: 


6203: 
6206: 
6209: 
620C: 
620F: 
6212: 
6215: 
6218: 


621B: 
621E: 
6221: 
6224: 
6226: 
6229: 
622B: 
622D: 
6230: 
6232: 


6233: 
6236: 
6239: 
623B: 
623E: 
6241: 
6244: 
6247: 
624A: 
624C: 
624F: 
6252: 
6255: 
6258: 
625B: 
625D: 
6260: 
6263: 
6266: 
6269: 


234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
213 
274 
275 
276 
277 
278 
219 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 


STA BTEMP 

RTS 
KKKKKKKKEKKEKEKEKKK KKK 
BDRAW  LDX BLINE 

LDY HORIZB 

LDA HI,X 

STA HIGH 

LDA LO,X 

STA LOW 

LDA (LOW),Y 

AND BTEMP 

CMP #$00 

BEQ NOHIT 

JMP COLLISION 
NOHIT LDA (LOW),Y 

EOR BTEMP 

STA (LOW),Y 

RTS 
KEKKKKKKEKEKKKKKKKK KK KKK 
COLLISION JSR EXPLODE 

INC SUM ;ADD 1 TO SCORE 

INC SUM 

INC SUM 

JSR SCORE 

JSR BINITIAL 

JSR MDRAW 

JUMP PADDLE 
KEKKKKKKKKEKKKKKKKKKKKKEK 
BXDRAW LDX BLINE 

LDY HORIZB 

LDA HI,Xx 

STA HIGH 

LDA LO,Xx 

STA LOW 

LDA (LOW),Y 

EOR BTEMP 

STA (LOW) ,Y 


;DRAW BULLET 


s;DISPLAY SCORE 


;ERASE MAN 


KEKKKKKKKKKKKKKKKKKKKEKK 


EXPLODE JSR INITE1 
JSR DRAWE1] ;DRAW 
LDA #$60 
JSR WAIT 
JSR INITE1 
JSR DRAWE1 3ERASE 
JSR INITE2 
JSR DRAWE1 ;DRAW 
LDA #$BB 
JSR WAIT 
JSR INITE2 
JSR DRAWE1 ;ERASE 
JSR INITE3 
JSR DRAWE1 ;DRAW 
LDA #$BB 
JSR WAIT 
JSR INITE3 
JSR DRAWE1 3 ERASE 
JSR INITE4 
JSR DRAWE2 ; DRAW 


eee eee UO OECOOCCCCCOCOCCCOOOOOCOOCCOOC OOOO C SOOO CC CCS ee Cree eee eee ee ee eee eee eee 


sRESULT IS 0 IF NO COLLISION 


;BDRAW WITHOUT COLLISION TEST 
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626C: 
626E: 
6271: 
6274: 
6277: 


6278: 
627B: 
627E: 
6281: 
6283: 
6286: 
6288: 
628B: 
628D: 
6290: 
6292: 
6295: 
6298: 
629B: 
629E: 
62A0: 
62A3: 
62A6: 


62A7: 
62AA: 
62AD: 
62B0: 
62B2: 
62B5: 
62B7: 
62BA: 
62BC: 
62BF : 
62C1: 
62C4: 
62C5: 
62C8: 
62CA: 
62CD: 
62CF: 
62D2: 
62D5: 
62D8: 
62DB: 
62DD: 
62E0: 
62E3: 


62E4: 
62E6: 
62E9: 
62EB: 
62EE: 
62F1: 
62F2: 
62F4: 
62F7: 


60 
60 


293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 


LDA 
JSR 
JSR 
JSR 


#$FF 
WAIT 
INITE4 
DRAWE2 


KKKKKEKKEKKEKKEKKKEKEKKKKEKKKEE 


DRAWE1 LDY HORIZB 
LDX ELINE 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDX XCOUNT 
LDA (LOW),Y 
EOR ESHAPE ,X 
STA (LOW),Y 
INC XCOUNT 
INC ELINE 
LDA ELINE 
CMP EDEPTH 
BLT DRAWE1 
LDA ELINEA 
STA ELINE 
RTS 
KEKKKEKKKKEKKEKEKKEKKRKKKKK 
DRAWE2 LDY HORIZB 
LDX ELINE 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDX XCOUNT 
LDA (LOW),Y 
EOR ESHAPE,X 
STA (LOW),Y 
INC XCOUNT 
INY 
LDX 
LDA 
EOR 
STA 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 


XCOUNT 
(LOW) ,Y 
ESHAPE,, X 
(LOW) ,Y 
XCOUNT 
ELINE 
ELINE 
EDEPTH 
DRAWE2 
ELINEA 
ELINE 


KEKKKKKKKKKKKEKKRKKKKKK KEK 


INITEL LDA #$00 
STA XCOUNT 
LDA #$09 
STA ELINEA 
STA ELINE 
CLC 
ADC 
STA 
RTS 


#$05 
EDEPTH 


;ERASE 


sROUTINE FOR FIRST 3 
EXPLOSION SHAPES 


sROUTINE FOR FOURTH 
EXPLOSION SHAPE 


sINITIALIZE FIRST EXPLOSION 
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62F8: A905  —-352_—«SINITE2 =LDA_ #$05 sINITIALIZE SECOND EXPLOSION 
62FA: 8D OC 60 353 STA XCOUNT 
62FD: A909 = 354 LDA #$09 
62FF: 8D 37 60 355 STA ELINEA 
6302: 8D 36 60 356 STA ELINE 
6305: 18 357 CLC 
6306: 69 05 358 ADC #$05 
6308: 8D 38 60 359 STA EDEPTH 
630B: 60 360 RTS 
630C: AQ OA = 361_:—«SXINITE3 LDA #$0A sINITIALIZE THIRD EXPLOSION 
630E: 8D OC 60 362 STA XCOUNT 
6311: A905 363 LDA #$05 
6313: 8D 37 60 364 STA ELINEA 
6316: 8D 36 60 365 STA ELINE 
6319: 18 366 CLC 
631A: 69 08 367 ADC #$08 
631C: 8D 38 60 368 STA EDEPTH 
631F: 60 369 RTS 
6320: AQ 12 370 ~‘INITE4 LDA #$12 sINITIALIZE FOURTH EXPLOSION 
6322: 8D 0C 60 371 STA XCOUNT 
6325: A901 372 LDA #$01 
6327: 8D 37 60 373 STA ELINEA 
632A: 8D 36 60 374 STA ELINE 
632D: 18 375 CLC 
632E: 69 0C 376 ADC #$0C 
6330: 8D 38 60 377 STA EDEPTH 

162 6333: 60 378 RTS 

379 KKKKKKKKKEKKEKKKKKKKKKKKK 

, 6334: AD 39 60 380 SCORE LDA SUM ;IF SUM = 0 AND 
6337: CO FF 381 CMP #SFF DECREMENTED TO #$FF 
6339: D017 382 BNE Cl THEN 
633B: A909 = 383 LDA #$09 SET SUM TO 
633D: 8D 39 60 384 STA SUM #$09 AND 
6340: CE 3A 60 385 DEC COUNTER DECREMENT COUNTER 
6343: AD 3A 60 386 ° LDA COUNTER IF COUNTER = 0 
6346: CO FF 387 CMP #SFF AND DECREMENTED TO #$FF 
6348: D0 08 388 BNE Cl THEN 
634A: A900 —«389 LDA #$00 SET COUNTER 
634C: 8D 3A 60 390 STA COUNTER AND SUM 
634F: 8D 39 60 391 STA SUM EQUAL TO ZERO 
6352: AD 39 60 392 Cl LDA SUM ;GET SUM 
6355: C9 0A 393 CMP #S0A sLESS_THAN 102 
6357: 50 0C =—-394 BLT Ci0 SIF YES, BRANCH TO PRINT 
6359: EE 3A 60 395 INC COUNTER ;IF NO, INCREMENT COUNTER AND 
635C: AD 39 60 396 LDA SUM SUBTRACT 10 FROM SUM 
635F: 38 397 SEC 
6360: E9 0A 398 SBC #$0A 
6362: 8D 39 60 399 STA SUM 
6365: OA 400 C10 ASL ;MULTIPLY BY 8 
6366: OA 401 ASL 
6367: OA 402 ASL 
6368: AA 403 TAX 
6369: A013 404 LDY #$13 ;POSITION FOR FIRST DIGIT 
636B: 20 9D 63 405 JSR PRINT sPRINT DIGIT 
636E: AD 3A 60 406 LDA COUNTER ;GET COUNTER 
6371: C9 0A 407 CMP #$0A sLESS THAN 10? 
6373: BO OA 408 BGE STOP1 ;IF NO, PRINT 100 AND STOP GAME 
6375: OA 409 ASL ;IF YES, MULTIPLY BY 8 
6376: OA 410 ASL 
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6377: 
6378: 
6379: 
637B: 
637E: 


637F: 
6381: 
6383: 
6386: 
6388: 
638A: 
638D: 
638F: 
6392: 
6395: 
6397: 
639A: 


639D: 
63A0: 
63A3: 
63A6: 
63A9: 
63AC: 
63AF : 
63B2: 
63B5: 
63B8: 
63BB: 
63BE: 
63C1: 
63C4: 
63C7: 
63CA: 
63CD: 


63CE: 
63D1: 
63D6: 
63D9: 
63DE: 
63E1: 
63E6: 
63E9: 
63EE: 
63F1: 
63F6: 
63F9: 
63FE: 
6401: 
6406: 
6409: 
640E: 
6411: 
6416: 
6419: 
641E: 


12 
9D 


411 ASL 
412 TAX 
413 LDY #$12 sPOSITION OF SECOND DIGIT 
63 414 JSR PRINT ;PRINT DIGIT 
He: KRKEKKKKKKKKEKKKKKKKKKKKKEK 
417 ** PRINTS 100 AND STOPS GAME ** 
418 STOP1 LDX #$08 ;ACCESSES DIGIT "1" 
419 LDY #$11 sBYTE POSITION OF LEFTMOST DIGIT 
63 420 JSR PRINT sPRINT DIGIT 
421 LDX #$00 ;ACCESSES DIGIT "0" 
422 LDY #$12 sBYTE POSITION OF MIDDLE DIGIT 
63 423 JSR PRINT sPRINT DIGIT 
424 LDY #$13 ;BYTE POSITION OF FIRST DIGIT 
63 425 JSR PRINT sPRINT DIGIT 
CO 426 STOP BIT $C000 sANY KEY PRESSED? 
427 BPL STOP ;1F NO, BRANCH BACK & WAIT 
CO 428 BIT $C010 ;IF YES, CLEAR KEYBOARD STROBE AND 
60 429 JMP PGM START PROGRAM OVER 
430 kkk kkk KKK KKK KKK KKKKKKKKKEK 
63 431 PRINT LDA NSHAPE,X RETRIEVE NUMBER SHAPE 
23 432 STA $23D0,Y ;LINE #$B8 (184) 
63 433 LDA NSHAPE+1,X 
27 «434 STA $27D0,Y ;LINE #$B9 (185) 
63 435 LDA NSHAPE+2,X 
2B 436 STA $2BD0,Y ;LINE #$BA (186) 
63 437 LDA NSHAPE+3,X 
2F 438 STA $2FD0,Y ;LINE #$BB (187) 
63 439 LDA NSHAPE+4,X 
33 440 STA $33D0,Y ;LINE #$BC (188) 
63 441 LDA NSHAPE+5,X 
37 442 STA $37D0,Y ;LINE #$BD (189) 
63 443 LDA NSHAPE+6,X 
3B 444 STA $3BD0,Y ;LINE #$BE (190) 
63 445 LDA NSHAPE+7,X 
3F 446 STA $3FD0,Y ;LINE #$BF (191) 
es KRKKKEKKEKKKEKREKREKEKEKKKKKKKKKK 
22 449 NSHAPE HEX 001C22222222221C ;NUMBER SHAPES - "0" 
22.22. 1¢ 
oc 450 HEX 00080C080808081C Sa 
08 08 1C 
22 451 HEX 001C022201008043E gn” 
08 04 3E 
22 452 HEX 001C022201C20221C yh 
20 22 IC 
18 453 HEX 00101814123E1010 ae 
3E 10 10 
02 454 HEX 003E021E2020201E or 
20 20 1E 
22 455 HEX 001022021E22221C 260" 
22 22-1 
20 456 HEX 003E201008040404 iat Ae 
04 04 04 
22 457 HEX 001C022221C22221C Pith 
22 22. 1C 
22 458 HEX 001022223C20221C eg” 
20 22 1C 
01 459 MSHAPE1 HEX OQOOEO1000E01000E01 ;MAN SHAPE TABLES 
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6421: 
6427: 
642A: 
6430: 
6433: 
6439: 
643C: 
6442: 
6445: 
6448: 
644E: 
6451: 
6457: 
645A: 
6460: 
6463: 
6469: 
646C: 
646F: 
6475: 
6478: 
647E: 
6481: 
6487: 
648A: 
6490: 
6493: 
6496: 
649C: 
649F: 
64A5: 
64A8: 
64AE: 
64B1: 
64B7: 
64BA: 
64BD: 
64C3: 
64C6: 
64CC: 
64CF: 
64D5: 
6408: 
64DE: 
64E1: 
64E4: 
64EA: 
64ED: 
64F3: 
64F6: 
64FC: 
64FF: 
6505: 
6508: 
650B: 
6511: 
6514: 


651A: 


MSHAPE2 
02 


MSHAPE3 
04 


00 


MSHAPE4 
08 


MSHAPES 
11 


MSHAPE6 
23 


MSHAPE7 
47 


OF 


HEX 
HEX 


HEX 
HEX 


HEX 
HEX 


HEX 
HEX 


HEX 
HEX 


HEX 


ooo ee eee ee eC CUCU COCO C CeCe eee eee errr reer rere eer cere reece ee eee ee ee ee eee eee eee 


004401007F00601F00 
301F00181F00001F00 
001F00001B800403100 


606000 
001C02001C02001C02 


000803007E£01003E00 
003F00403F00003E00 
003E00003600003600 


006300 
003804003804003804 


001006007C03007C00 
007C00007£00007C00 
003800003800006C00 


004601 
007008007008007008 


00200C007807007801 
007801007801007801 
007000007000007000 


007000 
006011006011006011 


00401800700F007003 
007003007803007003 
006001006001003003 


001806 
004023004023004023 


00003100601F006007 
007007007807006007 
006007006006006006 


00300C 
00004700004 7000047 


00006200403F00700F 


00580F004COF00400F 
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651D: 00 4C OF 00 40 OF 


6523: 00 40 OF 492 HEX 00400F00400D006018 
6526: 00 40 OD 00 60 18 
652C: 00 30 30 493 HEX 003030 
652F: 01 494 BSHAPE1 HEX Ol ;BULLET SHAPES 
6530: 02 495 BSHAPE2 HEX 02 
6531: 04 496 BSHAPE3 HEX 04 
6532: 08 497 BSHAPE4 HEX 08 
6533: 10 498 BSHAPE5 HEX 10 
6534: 20 499 BSHAPE6 HEX 20 
6535: 40 500 BSHAPE7 HEX 40 
6536: 28 22 1A 501 ESHAPE HEX 28221A2514 3;EXPLOSION SHAPES - NO. 1 
6539: 25 14 
653B: 2C 52 44 502 HEX 2C5244320C 3NO. 2 
653E: 32 OC 
6540: 38 3E 7F 503 HEX 383E7F7E7E3F3F1C ;NO. 3 
6543: 7E 7E 3F 3F 1C 
6548: 18 06 7C 504 HEX 18067COF7C3F7E3F ;NO0. 4 
654B: OF 7C 3F 7E 3F 
6550: 7C 7F 7C 505 HEX 7C7F7C3F7E3F7F1F 
6553: 3F 7E 3F 7F 1F 
6558: 7E OF 7C 506 HEX 7EOF7C1F700F4003 
655B: 1F 70 OF 40 03 
BYTETBL 
OFFSET 
HI 
LO 165 
# 
2278 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B MLINE =$6003 MLINEA =$6004 
BLINE =$6005 DEPTH  =$6006 MHORIZ =$6007 BHORIZ =$6008 
HORIZB =$6009 HORIZM =$600A BULON =$600B XCOUNT =$600C 
DELAY =$600D BTEMP =$600E MTEMP =$600F ELINE  =$6036 
ELINEA =$6037 EDEPTH =$6038 SUM =$6039 COUNTER =$603A 
MSHPADR =$603B BSHPADR =$6049 PGM =$6057 CLR1 =$606B 
CLR =$606F LN =$6091 LN1 =$60A8 PADDLE =$60B8 
BULLET1 =$60D6 BULLET =$60E1 TOP =$6103 MINITIAL=$6109 
BINITIAL=$6118 SINITIAL=$6123 PR =$612E PDLE =$6137 
PDLE1 =$614D LOAD =$6167 MDRAW =$6172 MDRAW1 =$6177 
LOADBUL =$61BC BDRAW =$61DF NOHIT  =$61FB COLLIS ION=$6203 
BXDRAW =$621B EXPLODE =$6233 DRAWE1 =$6278 DRAWE2 =$62A7 
INITE] =$62E4 INITE2 =$62F8 INITE3 =$630C INITE4 =$6320 
SCORE  =$6334 CI =$6352 C10 =$6365 STOP1 =$637F 
STOP =$6392 PRINT  =$639D NSHAPE =$63CE MSHAPE1 =$641E 
MSHAPE2 =$6445 MSHAPE3 =$646C MSHAPE4 =$6493 MSHAPES =$64BA 
MSHAPE6 =$64E1 MSHAPE7 =$6508 BSHAPE1 =$652F BSHAPE2 =$6530 
BSHAPE3 =$6531 BSHAPE4 =$6532 BSHAPE5 =$6533 BSHAPE6 =$6534 
BSHAPE7 =$6535 ESHAPE =$6536 BYTETBL =$6560 OFFSET =$6663 
HI =$6766 LO =$6826 GRAPHICS=$C050 MIXOFF =$C052 
PAGEl  =$C054 HIRES  =$C057 BUTTON =$C061 PREAD =$FB1E 


WAIT =$FCA8 
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The protocols presented in this chapter are not the end-all of scoring rou- 
tines. I know of at least two others that more or less accomplish the same pur- 
pose and I’m sure there are still others lurking in programs somewhere. Perhaps 
you could devise a better routine yourself. Why not give it a try? If you come up 
with something better, fame, fortune, and members of the opposite sex (or the 
same sex?) await you. 


Sound Generation: 
Explosions and Clickety Clicks 


Clickety-click, buzz and wham 
Puckety-puckety, pft and slam 
Pow and bang 

Whoosh and clang 
Tinkely-tink, whir and blam. 


S.é generation routines are among the easiest to explain but the 
hardest to apply, at least in game programs, requiring a great deal of trial and 
error and just plain all around fiddling. This is why other books on assembly 
language hi-res graphics and most commercial hi-res graphics utility programs 
omit the subject entirely. Well, there’s no getting around it so let’s jump in. We'll 
discuss first the principles of sound generation on the Apple II and then see how 
to apply these principles to our game program. 


THE APPLE SPEAKER AND SOUND GENERATION 
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Somewhere in your little tan Apple box is what is laughingly called a loud- 
speaker. Its size is so small it gives new meaning to the term “low fidelity.” 
However, it is capable of producing sounds, if not music. It does this in the 
following way. The speaker cone is in one of two positions, in or out. By access- 
ing a soft switch located at $C030, the cone changes position thereby pushing air 
and producing a sound wave. When the speaker is accessed just once, a click can 
be heard if you listen carefully. By accessing the speaker in rapid succession, 
tones are produced; the more frequent the access, the higher the tone or pitch. 
The basic tone-producing cycle is as follows: 


SPEAKER ——————» DELAY 
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By altering the delay time, different pitches are produced, ranging anywhere 
from low-pitched clicks (long delay) to high-pitched tones (short delay). 
Writing an assembly language program to produce the cycle depicted above 
is easy to do, especially for us experts, but something else is required lest the 
tone continue indefinitely (you could always stop the program or pull the plug 
and lucky Apple IIc owners could always turn down the volume, but let’s do it 
properly). The point is that the cycle has to be interrupted so that we can spec- 
ify the tone’s duration. Let’s look at the following program to see how it’s done. 


JPROGRAM 9-1 
:ASM 


1 kkk SOUND keke 

Z ORG $6000 
6000: 4C 04 60 3 JUMP = PGM 

4 DELAY DS: 1 

5 SPEAKER = $C030 

6 WAIT = $FCA8 
6004: A9 60 - 7 PGM LDA #$60 
6006: 8D 03 60 8 STA DELAY 
6009: AO 02 9 LDY #$02 
600B: 2C 30 CO 10 SOUND BIT SPEAKER 
600E: AD 03 60 11 LDA DELAY 
6011: 20 A8 FC 12 JSR WAIT 
6014: 88 13 DEY 
6015: DO F4 14 BNE SOUND 
6017: 4C 04 60 15 JUMP PGM 


--End assembly-- 


26 bytes 


Symbol table - numerical order: 


DELAY =$6003 PGM =$6004 SOUND =$600B SPEAKER =$C030 


WAIT =$FCA8 


The program loads DELAY with #$60 and Y with #$02. At SOUND, the 
speaker is accessed, using BIT instead of LDA just because I feel like it ($C030 
must be accessed either with LDA or BIT, not STA). There is then a time delay 
followed by a DEY and BNE SOUND. A BNE that doesn’t follow a comparison 
instruction simply means branch if the previous operation results in a non-zero; 
in this case, branch if Y hasn’t reached zero yet. Because Y is now 1, the program 
branches for another speaker access and delay. DEY now decrements Y to zero 
so the branch is not taken and the program jumps to START for another round. 
What's happening here is that the value in DELAY is specifying the pitch, i.e., the 
time between speaker accesses, while Y specifies the duration. The duration 
effect is not readily apparent in this program, because at the end of each tone 
pulse, the program branches immediately back to the beginning for another 
cycle. If we replace line 15 with RTS, we would then produce a single tone 
whose duration would be more obviously controlled by Y. 

One problem with this type of routine should be mentioned, although it has 
no bearing on our game program. The duration of the tone depends not only on 
Y but also on DELAY, because DELAY contributes to the overall execution time 
for the routine and, thus, a given Y cannot be used to produce different pitched 
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tones of equal duration. (By the way, have you ever noticed that tone is an 
anagram of note? I only mention this to take your mind off the duration control 
problem. ) 

To see the effect of the time delay on pitch, run Program 9-1 with different 
values in DELAY. A value of #$60 produces a low, rapid clicking. If we increase 
the delay, the clicks become lower and slower—#$90 produces a kind of put-put 
and #$BB a sort of hoppity-hop (this is by far the hardest part of writing this 
book, trying to find adjectives to describe these sounds! ). Decreasing the delay 
produces higher pitches and more rapid clicking. A value of #$40 produces a 
buzz, and it’s only when we get to #$30 or below that we hear something that 
resembles a musical tone. A value of #$05 results in a very high pitched tone, just 
barely audible and just barely bearable. Try #$01 and drive every dog in the 
neighborhood crazy. Isn’t this fun? I hope you’re enjoying it, because now we're 
getting to the sticky part. 


INTEGRATING SOUND EFFECTS 
INTO THE GAME PROGRAM 
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Although we won't be discussing the game program as such until the next 
chapter, we know enough about the game already to allow us to apply the prin- 
ciples of sound generation to the development of sound effects. The game itself 
is relatively simple and this limits our options. The sound effects I’ve decided to 
include are an explosion sound when a plane is hit and some sort of sound when 
a plane is traversing the screen. 

One problem with integrating sound effects into any type of program is that 
any sort of sound, except individual clicks, requires a time delay between 
speaker accesses and we have to be careful that our sound routine doesn’t result 
in an unwanted program interruption. The solution to this problem is to insert 
sound routines where program delays already exist. 

Let’s discuss the explosion sound first. In the game program, as in Program 
8-1, a collision sends the program to the EXPLODE subroutine where the explo- 
sion shapes are drawn and erased. Remember that between each draw and erase, 
we inserted a time delay. What I’ve done is substitute the explosion sound rou- 
tine for the first delay, ie., between drawing and erasing the first explosion 
shape. In other words, the sound routine itself provides the delay—in this way 
we've added an extra feature to the program without altering its execution time. 
The sound routine itself is listed below: 


SOUND LDY #$02 
SOUND1 BIT SPEAKER 
LDA #$60 
JSR WAIT 
DEY 
BNE SOUND1 
RTS 


This routine produces a single tone with a delay of #$60 between speaker 
accesses. The total delay for this routine can be calculated as follows. The LDA 
#$60, JSR WAIT is accessed twice (Y = 2). Two times #$60 equals 2 times 96 = 
192 or #$CO. The original delay time was #$BB or 187. Thus, even adding a little 
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extra time for the execution of the sound routine, we see that the total delay is 
very close to what we had originally. 

It might seem, on paper at least, that a single tone is hardly appropriate for 
an explosion sound but if you run the game program you'll see that it works. 
That’s why so much fiddling is required—what looks bad on paper may be per- 
fectly alright in a program and, unfortunately, vice versa. 

In spite of the fact that the routine works, I’m sure that with a little extra 
fiddling, you or I could come up with something better. Instead of me doing it 
for you, here is an opportunity for you to display your expertise and imagination 
(if you think I’m trying to wriggle out of this, you’re right). How can we do this? 
Well, we could try to alter the tone by raising the pitch and duration. Doing this 
would not increase the total delay time because raising the pitch means less 
delay between speaker accesses. We could try inserting other tones in other 
program locations—obvious places would be the time delays between drawing 
and erasing the other explosion shapes. We could try—well, as I told you in the 
beginning, there’s a lot of trial and error involved in this process, and so on some 
cold February night, with a blizzard raging, nothing on television, the kids asleep, 
the dog at the vet, and your wife/hubby in Hoboken for the annual meeting of 
the International Computer Widows/Widowers Association, give it a try. You 
have nothing to lose except your sanity. 

Now we get to the plane sound. The plane as drawn looks like it’s jet- or 
rocket-powered and so one might imagine that we should strive for something 
170 like a whooshing sound. However, computer game programmers are allowed the 
ise equivalent of poetic license, which means if it’s too hard, we'll do something 

else. The plane is, in fact, powered by an electric motor. Why? Because I say 
so—after all, I am its creator (there’s nothing like learning assembly language to 
give one a feeling of omnipotency )—and besides, the motor sound effect some- 
how seems to work. The sound we want then is a kind of clickety-click (there 
are those adjectives again) and one way to accomplish this is by clicking the 
speaker just once each time a plane is moved one bit position. The delay 
between clicks is accomplished by the program itself as it loops from one plane 
move to the next. However, when I tried this in the game program I wasn’t 
entirely satisfied because the clicks were too rapid, and so I decided instead to 
have the speaker click every other plane move. The technique for doing this 
illustrates a method generally applicable to any situation where we want to 
access a routine every other cycle, so let’s discuss the details. 

The Apple II microprocessor contains another register besides the Accumu- 
lator, X, and Y, called the Status Register, which can also hold just a single byte. 
In contrast to the other registers, however, the Status Register is not used to 
store numbers per se, but rather to indicate certain conditions by having each bit 
contain a 1 or 0. I’m not going to discuss all the functions of the Status Register 
bits but the one bit I do want to discuss is called the Carry bit. One function of 
the Carry bit is to indicate an overflow when a number is added to #$FF in the 
Accumulator. For example, adding #$01 to #$FF zeros the Accumulator and sets 
the Carry bit to 1. This is why the instruction ADC (ADd with Carry) requires a 
prior CLC (CLear Carry) and why SBC (SuBtract with Carry) requires a prior 
SEC (SEt Carry). Another function of the Carry bit is as an indicator in compari- 
sons. For example, CMP compares a value to the value in the Accumulator. If the 
value in the Accumulator is less than the compared value, the Carry bit is cleared 
(0); if more, the Carry bit is set (1). This is why the pseudo-op BLT (Branch if 
Less Than ) is used in some Assemblers in place of BCC (Branch on Carry Clear), 
and BGE (Branch if Greater or Equal) in place of BCS (Branch on Carry Set). 
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Now we're ready to see how we can use the Carry bit for our every-other-cycle 
click routine. 

The instruction LSR (Logical Shift Right) moves each bit in the Accumulator 
one position to the right—a zero is moved into bit 7 and bit 0 moves into the 
Carry. Note that some assemblers require A in the operand column, i.e., LSR A. 


. 


LSR can be used to test if the number in the Accumulator is odd or even. If 
even, bit 0 (this is the 1’s column) must contain 0 and after LSR, the Carry bit 
will be clear; if odd, bit 0 must contain 1 and after LSR the Carry bit will be set. 
Thus, a BCC will branch the program if the number is even and not branch if the 
number is odd (here we’re using BCC instead of BLT because the standard 
mnemonic reminds us what the instruction is doing). 

Now let’s see how to use LSR to alternate the speaker clicks. First, some- 
where in the beginning of the program we define a memory location DE. Then, 
in the MAIN PROGRAM at the point where we draw a plane with JSR PDRAW, 
we include the following routine: 


#6543 2 1 
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JSR PDRAW __ ;DRAW PLANE Rg 
INC DE 
LDA DE 
ahaha ;CARRY = 0 IF DE IS EVEN 
LSR ;CARRY = 1 IF DE IS ODD 
BCC BUL ;SKIP NEXT LINE IF CARRY = 0 
BIT SPEAKER  ;CLICK SPEAKER 
BUL etc. 


Every time a plane is drawn, DE changes from odd to even or vice versa and 
thus the speaker is accessed only every other plane draw. Because this routine 
clicks the speaker just once, no time delay is involved (except for the time it 
takes to run the routine) and the program execution time is not noticeably 
affected. DE does not have to be set to any particular number in the beginning of 
the program, as the actual value in DE is immaterial for the odd-even cycle. Note 
also that DE never fills up because when it reaches #$FF it simply wraps around 
to #$00. In addition, notice that we first load DE into the Accumulator and then 
do an LSR on the Accumulator contents. The LSR instruction can have a memory 
location as the operand, but if we perform an LSR DE directly without loading 
DE into the Accumulator, DE would itself be changed and this would interfere 
with the odd-even cycling. 

This brings us to the end of our preparatory chapters. In the next chapter we 
will see how to assemble the final game program. 
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Puting It All Together: 
The Game 


There once was a girl from Sydney 
Who could... (never mind). 


Q,, goal is finally in sight. All we need do now is to take our expert 
knowledge of assembly language programming and the routines we've already 
developed and assemble them into the final game program, but this is easier said 
than done as we'll soon see. 

Essentially what we're going to do is merge Programs 8-1 and 5-1, and add 
sound routines and a few other embellishments. Before we do this, however, a 
brief description of the game is in order. A man will move along a bottom line, 
his movement controlled by a paddle or joystick. Planes will appear, with 
appropriate sound effects, one at a time near the top of the screen, moving left to 
right all at the same screen line position. A bullet can be fired by pressing the 
paddle or joystick button. If a plane isn’t hit by a bullet, it continues to the end of 
the screen where it is erased and a new plane then reappears for another screen 
traversal. If a plane is hit, it explodes with a (sort of) bang, the score is incre- 
mented by 1 and another plane then appears at the left border. The game stops 
when the score reaches 100 or when 100 planes have appeared. Thus, if 10 
planes are missed, the game will stop at a score of 90. In this way, a player can 
tell how close he came to the ideal of hitting all 100 planes. The game can be 
restarted by pressing any key. 

Now to the heart of the matter. As mentioned in a previous chapter, when 
dealing with a relatively complicated program, it is essential to design the flow- 
chart first, leaving the details to later. The fact that we already have most of the 
details is of no matter. It is merely a consequence of the fact that this book is a 
teaching exercise—an experienced programmer would start with this chapter 
first and work backwards, so to speak, to fill in the details. 
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The main problem in designing a game program is ordering the routines in 
such a way that the desired simulation is achieved. Remember that a computer 
can do only one thing at a time and in the final program we might want to 
simulate, at some points at least, simultaneous events, and some events must 
follow or precede others. We have to consider which shapes to draw first, which 
to draw last, when to erase, where to insert the paddle read, score, and explo- 
sions, etc. The ordering of routines then is the salient dictum. 

Remember that in Chapter 6 we discussed for the first time how to design a 
program with two shapes moving at the same time, the man and bullet. The 
overall design can be depicted as follows: 


PADDLE READ 
MAN a 
BULLET 


The program continues in this loop indefinitely even if a bullet isn’t drawn 
or if the paddle doesn’t change position. The important point is that we created 
the illusion that the bullet moves at the same time the man’s movement is con- 
trolled by the paddle even though, of course, each man and bullet move is a 
separate event. This is a direct consequence of the speed of the program—the 
time between the bullet move and the paddle-controlled move is so small as to 
produce the illusion of simultaneity. The game program uses the same principle 
except here we’re drawing a plane after the man draw: 


PADDLE READ 


BULLET 


Again, the speed of the program allows us to create the illusion of three 
shapes moving at the same time. Now, with all this in mind, let’s examine the 
flowchart for the game program. 
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In the program’s beginning, we take care of the “housekeeping” chores—the 
shape addresses are assembled into shape address tables, the screen is cleared 
and displayed, the bottom line drawn, counters are zeroed, and we initialize the 
score, man, plane, and bullet. Let’s stop here to discuss a point we haven’t seen 
before. Remember that we want to keep track of how many planes are drawn so 
we can stop the program when 100 planes have appeared (if the perfect score of 
100 has not been attained). We do this in the PINITIAL routine because this 
routine is accessed when, and only when, a new plane is drawn, either after a 
plane has been hit or when a plane has reached the end of the screen (and of 
course for the first plane draw). We accomplish this by incrementing PCOUNTER 
(initially set to zero at the beginning) for each access to PINITIAL and asking 
whether PCOUNTER contains a value less than 101. If it does, we continue—if it 
doesn’t, we stop the program (we don’t do a comparison to 100 because we 
want the 100th plane to be drawn). 

The program then continues with a paddle read and man draw. If there is 
such a thing as a grand design for a program, we can illustrate it in the following 
diagram: 


PADDLE READ 


DRAW MAN 


REST OF PROGRAM 


Everything else in the program we want to do, drawing the planes and 
bullets, keeping score, displaying explosions, all the sound effects, reinitializing, 
are all done in between paddle reads. The program doesn’t have to be designed 
this way— it’s just that the program is fast enough so that paddle reads do not 
have to be done more frequently. The illusion we’re striving for (and attaining) 
is that the man’s position is always responsive to the paddle regardless of what- 
ever else is going on. (But note the caveat discussed in Chapter 7—the man’s 
position becomes momentarily unresponsive to the paddle during the explosion 
shapes display; but note, too, as also discussed in Chapter 7, that this delay is 
hardly noticeable and could be eliminated by inserting other paddle reads 
between drawing and erasing the explosion shapes. ) 

The paddle read routine, you will remember, also contains a “bullet on?” 
question. If the bullet is not on, BHORIZ is set equal to MHORIZ so that when 
the bullet is fired, it will be aligned with the man. If the bullet is already on, this 
step is skipped to allow the bullet to move up independent of the man’s position. 

After the paddle read, the man is drawn and then we prepare to draw the 
plane. Here we access the plane shape number a little differently than before for 
programming convenience. We first increment PSHPNO. Because we want the 
first shape, PSHPNO should contain #$00 after we increment. This is why 
PSHPNO is loaded with #$FF in PINITIAL—incrementing #$FF wraps the value 
around to #$00. We then ask if the value in PSHPNO is greater than 6; i.e., have 
we finished all seven shapes? If no, we continue and draw the plane, clicking the 
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speaker every other cycle. If yes, we move to the next screen byte and ask if 
we've reached the end of the screen. If no, we load PSHPNO with #$FF again and 
loop back to INC PSHPNO in preparation for the next plane draw, this time with 
shape 0 at the next screen byte position. If we have reached the end of the 
screen, we erase the man (the plane has already been erased by the DRAW- 
ERASE protocol), and initialize the plane again, thereby also incrementing 
PCOUNTER. We then test PCOUNTER to see if 100 planes have appeared—if 
yes, we stop the program; if no, we continue with another paddle read which 
draws the man, and then the plane is drawn again. 

After the plane is drawn, we ask if the bullet is on or if the button is pressed. 
If neither, we skip the bullet draw routine entirely and erase the man and the 
plane in preparation for another paddle read—the man’s position is updated and 
the plane moves over one bit. Note a general feature of the program; just before 
a paddle access, we always erase whatever shape (man, plane, or bullet) that 
happens to be on the screen, in preparation for the next move. 

Supposing the button is pressed or the bullet is already on the screen—we 
then go to the bullet draw routine before we reaccess the paddle (if the button 
is pressed, the bullet on marker, BULON, is set). The BDRAW routine first does a 
collision test before the bullet is drawn. If there is no collision, the bullet is 
drawn and then the bullet, plane, and man are erased in preparation for the next 
paddle read. Before we access the paddle however, we move the next bullet 
position up eight lines and ask if it has reached the top (actually, within five lines 


of the top). If it hasn’t, that’s fine —we simply go back for another paddle read. If 177 
it has, we have to initialize the bullet first before the paddle read. 
Suppose a collision is detected. Here I’ve changed the protocol slightly to sr 


produce what I think is a better display. You remember in Program 8-1 we 
displayed the explosion first and then the score. This was done so that when the 
score reached 100 (if all 100 planes were hit) the explosion would finish before 
the score indicated the program should stop; otherwise, we would be left with 
an unexploded plane on the screen. I found this delay in displaying the score 
unnerving—I want to see the score right after that plane is blasted! So here we’re 
going to display the score first, before the explosion. 

In the COLLISION routine, we first erase the plane (we always erase the 
shape that’s hit), INC SUM, and then go to SCORE routine. In SCORE, if the 
count is 100, we print 100 in the display and then, instead of stopping the pro- 
gram, we load an indicator labeled ST with #$01. If the score is not 100, ST 
contains #$00. We then jump back to the COLLISION routine, draw and erase 
the explosion shapes with the accompanying sound effect, and test ST. If ST 
contains #$01, it means the score has reached 100 and we stop the program— 
remember we've already displayed and erased the explosion so we're not left 
with an unexploded plane. If ST contains #$00, the score has not reached 100 
and we continue by erasing the man (there’s no need to erase the bullet, as the 
collision test is done before the bullet is drawn), initializing the plane and bullet, 
and reading the paddle again. 

We've now come to the end of the flowchart. A good way to check out a 
program, to make sure it’s doing what we want it to do, is to run through the 
flowchart considering all possible routes, so let’s do that now. 
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Situation—The man and plane are drawn and the bullet is not fired and is 
not on the screen. 

Flow—After a delay, the man and plane are erased and the paddle read again 
for another man and plane draw. The plane moves across the screen and the 
man’s movement is controlled by the paddle; nothing else happens. 


Situation—The man and plane are drawn but PSHPNO indicates the next 
plane draw will reach the end of the screen. 

Flow—The man is erased and the plane initialized so that the next plane will 
appear at the starting left border position. If 100 planes have appeared, the pro- 
gram stops; if not, the paddle is read again to update the man’s position and the 
next man and plane are drawn. 


Situation—The man and plane are drawn and the button is pressed. 

Flow—BULON is set to indicate bullet on and the bullet draw routine is 
accessed. Because the bullet was not on when the paddle was read, BHORIZ is 
equal to MHORIZ and the bullet is fired from the man’s position. 


Situation—The man and plane are drawn and the bullet is on the screen. 
Flow— BDRAW is accessed but BHORIZ is now independent of MHORIZ, so 
the bullet can move up independently of the man’s position. 


Situation—The man and plane are drawn, a bullet is on the screen but not 
yet at the top, and no collision is detected. 

Flow—The bullet is drawn and after a delay, the bullet, man, and plane are 
erased. The paddle is read again to update the man shape position, the plane 
moves one bit position and the bullet moves up eight lines. This continues until 
the bullet has reached the top of the screen or until a plane is hit. 


Situation—Same as above but the bullet has reached the top. 

Flow—The bullet is initialized, which sets BULON to indicate the bullet is 
not on and the bullet will not be drawn unless the button is pressed. Thus, we’re 
back to the situation where the man and plane are drawn but the bullet is not 
on. 


Situation—The man and plane are drawn, a bullet is on the screen, and a 
collision is detected. 

Flow—The plane is erased, SUM incremented, the score displayed, and the 
explosion shapes drawn and erased with the explosion sound effect. If the score 
is at 100, the program stops. If less than 100, the man is erased, the plane and 
bullet initialized, and the paddle read in preparation for another cycle. 


Situation—A plane has been hit or has reached the end of the screen. 
Flow—PCOUNTER is incremented for each such occurrence. After 100 such 
events, the program stops (unless stopped by the score reaching 100). 


This takes us through essentially all the game assembly, as we already know 
most of the program details. In fact, there is only one minor detail that need be 
considered. Conditional branch instructions branch to program locations by 
relative rather than absolute addressing; i.e., the location to be branched to is not 
specified by a particular address but rather by the distance (in bytes) from the 
branch instruction. The branching distance is limited, however, by a maximum 
of 127 bytes forward or 128 bytes back. What do you do if you want to branch to 
a location outside these limits? Lines 172-174 and 365-368 in Program 10-1 
illustrate the solution. In line 172, for example, what we would like to do is 
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branch to BI with a BLT BI but BI is too far from the branch instruction. So, what 
we do instead is insert a short branch to a JMP instruction (JMP branches to 
absolute addresses and thus does not have any distance limitation). The routine 
is: 


BLT LONG 


LONG JMP BI 


By the way, your assembler will tell you, with an error message, when you 
attempt to branch beyond the distance limits. 

And now—fanfare please—it is with great pride (or at least some pride) and 
little trepidation that I hereby present THE GAME! (Whoops—it has no name! 
To enter the Name the Game contest, send $10 in cash, and also an entry if you 
like, to me, care of the publisher. The winner will receive a thank you note 
suitable for framing. ) 


JPROGRAM 10-1 
:ASM 


1 9 * THE GAME! **e* 
2 ORG $6000 
6000: 4C 7C 60 3 JMP  PGM 
4  MLINE DS 1 179 
5  MLINEA DS 
6  BLINE ODS i 
7 DEPTH ODS 
8  MHORIZ DS 
9  BHORIZ ODS 


10 HORIZB- ODS 
11  HORIZM~ DS 
12 ~~ BULON DS 
13. XCOUNT ODS 
14 ~—DELAY DS 
15 BTEMP DS 
16 MTEMP DS 
17 ELINE DS 
18  ELINEA’ ODS 
19 EDEPTH ODS 


oO 


20 ~=SUM DS 
21 COUNTER ODS 
22. =O DS 


23. +PCOUNTER DS 
24 ~—=—~PLINE DS 
25 PLINEA' ODS 
26 ~=PBYTE DS 
27 + PDEPTH ODS 
28 PSHPNO ODS 


See ee ell ell oll ell ell ll ol 


29. =~PTEMP DS 5 

30.) ST DS 

31 GRAPHICS = $C050 
32 MIXOFF = $C052 
33. HIRES = $C057 
34  PAGE1 = $C054 
35 HIGH = $1B 
36 ~=LOW = $1A 
37. WAIT = $FCA8 
38 PREAD = $FB1E 
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6052: 
6053: 
6054: 
6055: 
6056: 
6057: 
6058: 
6059: 
605A: 
605B: 
605C: 
605D: 
605E: 
605F: 
6060: 
6061: 
6062: 
6063: 
6064: 
6065: 
6066: 
6067: 
6068: 
6069: 
606A: 
606B: 
606C: 
606D: 
606E: 
606F: 
6070: 
6071: 
6072: 
6073: 
6074: 
6075: 
6076: 
6077: 
6078: 
6079: 
607A: 
607B: 
607C: 
607F: 
6082: 
6085: 
6088: 
608A: 
608C: 
608E: 
6090: 
6092: 
6094: 
6096: 
6097: 
6099: 
609B: 


50 
52 
57 
54 
00 
1A 
20 
1B 
00 
00 
1A 


FB 
1B 
1B 


CO 
co 
co 
co 


BUTTON = $C061 ;BUTTON 0 
SPEAKER = $C030 
*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
*CONTINUE FOR ALL 7 SHAPES 
MSHPADR DFB  #<MSHAPE1 
DFB #>MSHAPE1 
DFB #<MSHAPE2 
DFB #>MSHAPE2 
DFB #<MSHAPE3 
DFB #>MSHAPE3 
DFB #<MSHAPE4 
DFB #>MSHAPE4 
DFB #<MSHAPE5 
DFB #>MSHAPES 
DFB #<MSHAPE6 
DFB #>MSHAPE6 
DFB #<MSHAPE7 
DFB #>MSHAPE7 
BSHPADR DFB_ #<BSHAPE1 
DFB #>BSHAPE1 
DFB #<BSHAPE2 
DFB #>BSHAPE2 
DFB #<BSHAPE3 
DFB #>BSHAPE3 
DFB #<BSHAPE4 
DFB #>BSHAPE4 
DFB #<BSHAPE5 
DFB #>BSHAPES5 
DFB #<BSHAPE6 
DFB #>BSHAPE6 
DFB #<BSHAPE7 
DFB #>BSHAPE7 
PSHPADR DFB- #<PSHAPE1 
DFB #>PSHAPE1 
DFB #<PSHAPE2 
DFB #>PSHAPE2 
DFB #<PSHAPE3 
DFB #>PSHAPE3 
DFB #<PSHAPE4 
DFB #>PSHAPE4 
DFB #<PSHAPE5 
DFB #>PSHAPE5 
DFB #<PSHAPE6 
DFB #>PSHAPE6 
DFB #<PSHAPE7 
DFB #>PSHAPE7 
PGM LDA GRAPHICS — ;HIRES,P.1 
LDA MIXOFF 
LDA HIRES 
LDA PAGE1 
LDA #$00 ;CLEAR SCREEN 1 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY #$00 
LDA #$00 
CLR STA (LOW),Y 
INY 
BNE CLR 
INC HIGH 


LDA HIGH 
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609D: 
609F: 
60A1: 
60A3: 
60A6: 
60A8: 
60AA: 
60AD: 
60AF : 
60B2: 
60B4: 
60B6: 
60B8: 
60B9: 
60BB: 
60BD: 
60BF: 
60C2: 


60C5: 
60C8: 
60CB: 
60CE: 
60D1: 
60D4: 
6007: 
60DA: 
60DD: 
60DF : 
60E1: 
60E4: 
60E7: 
60E9: 


60EB: 
60EE: 
60F1: 
60F4: 
60F6: 
60F9: 
60FC: 
60FF: 
6102: 
6105: 


6108: 
6109: 
610B: 
610E: 
6111: 
6113: 
6115: 
6118: 
611A: 
611D: 
6120: 
6123: 
6126: 
6129: 
612B: 
612E: 


100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 


CMP 
BLT 
LDA 
STA 
LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
LN STA 
INY 
CPY 
BLT 
LDA 
STA 
STA 


KkkKKKKKKK MAIN PROGRAM KaKKKKKKKKK 


JSR 
JSR 
PI JSR 
BI JSR 
PADDLE JSR 
JSR 
PSTART — INC 
LDA 
CMP 
BLT 
INC 
LDA 
CMP 
BLT 


JSR 
JSR 
JMP 
PSTART1 LDA 
STA 
JMP 
PSTART2 JSR 
JSR 
INC 
LDA 
ek 
LSR 
BCC 
BIT 
BUL LDA 
CMP 
BEQ 
LDA 
BMI 
LDA 
JSR 


BULLET1 LDA 


BULLET JSR 


#$40 
CLR1 
#$50 
DELAY 
#$B7 
#$00 
HI,X 
HIGH 
LO,X 
LOW 
#$7F 
(LOW) ,Y 


#$27 

LN 

#$00 
PCOUNTER 
ST 


SINITIAL 
MINITIAL 
PINITIAL 
BINITIAL 
PDLE 
MDRAW 
PSHPNO 
PSHPNO 
#$07 
PSTART2 
PBYTE 
PBYTE 
#$26 
PSTART1 


PINITIAL 
MDRAW 
PADDLE 
#$FF 
PSHPNO 
PSTART 
PLOADSHP 
PDRAW 

DE 

DE 


BUL 
SPEAKER 
BULON 
#$01 
BULLET 
BUTTON 
BULLET1 
DELAY 
WAIT 
MDRAW 
PDRAW 
PADDLE 
#$01 
BULON 
LOADBUL 


;LOAD DELAY 
;DRAW BOTTOM LINE 


; INITIALIZATION 


sREAD PADDLE 
;DRAW MAN 
3FIRST SHAPE NUMBER TO ZERO 


;DRAWN ALL 7 SHAPES? 
;1F NO, DRAW PLANE 
31F YES, NEXT SCREEN BYTE 


3END OF SCREEN? 
31F NO, RESET SHAPE NO. & 
CONTINUE DRAW 
3IF YES, INITIALIZE PLANE AND 
ERASE MAN AND 
GO BACK TO PADDLE READ 


;DRAW PLANE 
3ACCESS SPEAKER EVERY OTHER CYCLE 


;C=0 IF DE IS EVEN 
;C=1 IF DE IS ODD 


31S BULLET ON? 
3IF YES, CONTINUE BULLET DRAW 
;IF NO, IS BUTTON PRESSED? 
3IF YES, DRAW BULLET 
;IF NO, 
DELAY AND 
ERASE MAN AND 
ERASE PLANE 
READ PADDLE AGAIN 
;SET BULLET ON 


;LOAD BULLET SHAPE INTO BTEMP 
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6131: 
6134: 
6137: 
613A: 
613D: 
6140: 
6143: 
6146: 
6147: 
6149: 
614C: 
614E: 
6150: 
6153: 


6156: 
6158: 
615B: 
615E: 
615F: 
6161: 
6164: 


6165: 
6167: 
616A: 
616C: 
616F: 


6170: 
6172: 
6175: 


6178: 
6179: 
617B: 
617E: 
617F: 
6181: 
6183: 


6184: 


6186: 
6189: 


618C: 
618F: 
6191: 
6193: 
6196: 
6198: 
619B: 
619D: 
61A0: 
61A3: 
61A4: 
61A6: 
61A9: 


60 
60 


60 


64 
60 
60 
60 


60 


161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 


JSR BDRAW ;DRAW BULLET & TEST FOR COLLISION 
LDA DELAY 

gSR WAIT ;DELAY 

JSR BXDRAW sERASE BULLET 

JSR MDRAW sERASE MAN 

JSR PDRAW ;ERASE PLANE 

LDA BLINE 

SEC 

SBC #$08 sMOVE BLINE UP 8 LINES 

STA BLINE 

CMP #$05 ;LESS THAN 5 LINES FROM TOP? 
BLT LONG 31F YES, TAKE BRANCH 

JMP PADDLE 31F NO, READ PADDLE AGAIN 


LONG JUMP BI 
OI SUBROUTINES * ee 
MINITIAL LDA #$AA 

STA MLINE 

STA MLINEA 

CLC 

ADC #$0D 

STA DEPTH 


KRKKKKKEKKKKKKKKEKKEKKKKKE 


BINITIAL LDA #$00 ;BULON = 0 IF 
STA  BULON BULLET NOT ON SCREEN 
LDA #$A4 
STA BLINE 
RTS 
KKEKKKKKKKKKKKKKKKKKKKK 
SINITIAL LDA #$00 
STA SUM 
STA COUNTER 
TAX 
LDY #$11 
PR JSR PRINT 
INY 
CPY #$14 
BLT PR 


;SCORE DISPLAYS THREE 0'S 


KEKKKKKKKKEKKEKKKKK KKK 


PINITIAL LDA #$FF ;PSHPNO LOADED WITH #$FF SO FIRST 
* 


INC PSHPNO WILL LOAD PSHPNO 


¥ WITH ZERO 
STA PSHPNO 
INC PCOUNTER ;PINITIAL AND PCOUNTER ACCESSED 
i ONLY ON COLLISION OR 
= END OF SCREEN 
LDA PCOUNTER 
CMP #$65 sPCOUNTER MORE THAN 100? 
BLT PCONT 31F NO, CONTINUE P INITIALIZATION 
JMP = STOP2 ;IF YES, STOP GAME 
PCONT LDA #$00 
STA PBYTE 
LDA #$08 
STA PLINEA 
STA PLINE 
CLC 
ADC #$05 
STA PDEPTH 


KEKKKKEKKKKKEKKEKEKKKEKKEKKE 


| 61BD: 99 42 60 


fo.) 
be 
-Q 
wo 
oO 
co 


61F8: 99 OF 60 


622B: 5D 11 60 


222 


224 
225 
226 


230 
231 
232 
233 


235 
236 
237 


239 
240 


247 
248 
249 
250 


S:9 8isib.biWinie €.0)8:0's 6168'S, W'0 Giaja,e'e Ole e.s)6is|kie Os se'sinls'a'h ap\s'6'alalaidln'b Vu siieien oleeeiss sa WS/NWs b eivisin ocd clobwai'eniasasie’ awihealev ae’ Putting It All Together: The Game 


PLOADSHP LDA PSHPNO 
ASL 
TAX 
LDA PSHPADR,X 
STA LOW 
LDA PSHPADR+1,X 
STA HIGH 
LDY #$00 
PLOADSHP1 LDA (LOW) ,Y 
STA PTEMP,Y 
INY 
CPY #$0F 
BLT PLOADSHP1 


KKKKKKKKEKKEKEKKEKKEKEKKKKKKKEK 


PDLE LDX #$00 


JSR PREAD sREAD PADDLE 0 

TYA 

STA MHORIZ 30-255 IN MHORIZ 

LDA BULON 

CMP #$01 31S BULLET ON? 

BEQ PDLE1 31F YES, TAKE BRANCH 
LDA MHORIZ ;1F NO, SET BHORIZ EQUAL 
STA BHORIZ TO MHORIZ 


PDLEL LDY MHORIZ 
LDA BYTETBL,Y ;CONVERT 0-255 TO 0-36 (BYTE) 
STA HORIZM sMAN BYTE POSITION 
LDA OFFSET,Y ;GET SHAPE NUMBER 
ASL sLOAD SHAPE INTO MTEMP 
TAX 
LDA MSHPADR,Xx 
STA LOW 
LDA MSHPADR+1,X 
STA HIGH 
LDY #$00 
LOAD LDA (LOW),Y 
STA MTEMP,Y 
INY 
CPY #$27 
BLT LOAD 
RTS 
KKKKKEKKKKEKKKKKKKKKKKKKKK 
MDRAW LDA #$00 
STA XCOUNT 
MDRAW1 LDX MLINE 
LDY HORIZM 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDX XCOUNT 
LDA (LOM),Y 
EOR MTEMP,X 
STA (LOM),Y 
INY 
LDA (LOW),Y 
EOR MTEMP+1,X 
STA (LOM),Y 
INY 
LDA (LOW),Y 
EOR MTEMP+2,X 


183 


622E: 91 1A 283 STA (LOW),Y 
6230: EE OC 60 284 INC XCOUNT 
6233: EE OC 60 285 INC XCOUNT 
6236: EE OC 60 286 INC XCOUNT 
6239: EE 03 60 287 INC MLINE 
623C: AD 03 60 288 LDA MLINE 
623F: CD 06 60 289 CMP DEPTH 
6242: 90 C2 290 BLT MDRAW1 
6244: AD 04 60 291 LDA MLINEA sRESET LINE 
6247: 8D 03 60 292 STA MLINE 
624A: 60 293 


294 KKEKKKKKKKKKEKKEKEKEEKKKEK 


624B: A9 00 295 PDRAW LDA #$00 


624D: 8D OC 60 296 STA XCOUNT 
6250: AC 3F 60 297 PDRAW1 LDY PBYTE 
6253: AE 3D 60 298 LDX PLINE 
6256: BD 9F 68 299 LDA HI,X 
6259: 85 1B 300 STA HIGH 
625B: BD 5F 69 301 LDA LO,X 
625E: 85 1A 302 STA LOW 

6260: AE OC 60 303 LDX XCOUNT 
6263: Bl 1A 304 LDA (LOW) ,Y 
6265: 5D 42 60 305 EOR PTEMP,X 
6268: 91 1A 306 STA (LOW) ,Y 
626A: C8 307 INY 

626B: Bl 1A 308 LDA (LOW),Y 
626D: 5D 43 60 309 EOR PTEMP+1,X 
6270: 91 1A 310 STA (LOW),Y 
6272: C8 311 INY 

6273: Bl 1A 312 LDA (LOW) ,Y 
6275: 5D 44 60 313 EOR PTEMP+2,X 
6278: 91 1A 314 STA (LOW) ,Y 
627A: EE OC 60 315 INC XCOUNT 
627D: EE OC 60 316 INC XCOUNT 
6280: EE 0C 60 317 INC XCOUNT 
6283: EE 3D 60 318 INC PLINE 
6286: AD 3D 60 319 LDA PLINE 
6289: CD 40 60 320 CMP PDEPTH 
628C: 90 C2 321 BLT PDRAW1 
628E: AD 3E 60 322 LDA PLINEA sRESET LINE 
6291: 8D 3D 60 323 STA PLINE 
6294: 60 324 RTS 


325 KRKKKKKKKEKKEKKKKKKKK KK KKK 


6295: AC 08 60 326 LOADBUL LDY BHORIZ ;CONVERTS 0-255 TO 


6298: B9 99 66 327 LDA BYTETBL,Y SCREEN BYTE (0-36) 
629B: 18 328 CLC 3ADD 2 TO ALIGN BULLET 
629C: 69 02 329 ADC #$02 WITH GUN 

629E: 8D 09 60 330 STA HORIZB ;BULLET BYTE POSITION 
62A1: B9 9C 67 331 LDA OFFSET,Y  ;GET BULLET SHAPE NUMBER 
62A4: OA 332 ASL ;LOAD BULLET SHAPE INTO BTEMP 
62A5: AA 333 TAX 

62A6: BD 60 60 334 LDA BSHPADR,X 

62A9: 85 1A 335 STA LOW 

62AB: BD 61 60 336 LDA BSHPADR+1,X 

62AE: 85 1B 337 STA HIGH 

62B0: AO 00 338 LDY #$00 

62B2: Bl 1A 339 LDA (LOW),Y 

62B4: 8D OE 60 340 STA BTEMP 

62B7: 60 341 RTS 


342 KRKKKKKKKEKKKEKKKKKKKKKK 


SOOO O OPO EEE HEHE E ETHEL ESSE EEEEEEEEEEES OSE EEE ESE SESE SEES OESSO TEESE ESOS E EOE E Eee eeEEeesessesesesees 


62B8: 
62BB: 
62BE: 
62C1: 
62C3: 
62C6: 
62C8: 
62CA: 
62CD: 
62CF: 
62D1: 
6204: 
62D6: 
6209: 
62DB: 


620C: 
62DF: 
62E2: 
62E5: 
62E8: 
62EB: 
62ED: 
62EF: 
62F2: 
62F5: 


62F8: 
62FB: 
62FE: 
6301: 
6303: 
6306: 
6308: 
630A: 
630D: 
630F: 


6310: 
6313: 
6316: 
6319: 
631C: 
631F: 
6322: 
6325: 
6327: 
632A: 
632D: 
6330: 
6333: 
6336: 
6338: 
633B: 
633E: 
6341: 
6344: 
6347: 
6349: 


343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 


BDRAW LDX BLINE 
LDY HORIZB 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDA (LOW),Y 
AND BTEMP 
CMP #$00 
BEQ NOHIT 
JMP COLLISION 
NOHIT LDA (LOW) ,Y 
EOR BTEMP 
STA (LOW) ,Y 
RTS 
KRKKKKKEKKKKKEKKKEKKEKKKEKE 
COLLISION JSR PDRAW 
NC SUM 
JSR SCORE 
JSR EXPLODE 
LDA ST 
CMP #$01 
BEQ LG 
JSR MDRAW 
JMP PI 
LG JMP = STOP2 
KKKKKKKKKEKKEEKEKERK ER KEK KK 
BXDRAW LDX BLINE 
LDY HORIZB 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDA (LOW),Y 
EOR BTEMP 
STA (LOW) ,Y 
RTS 
KKKKKKKEKKKKKKKKKKKKKKKK 
EXPLODE JSR INITE1 
JSR DRAWE1 
JSR SOUND 
JSR INITE1 
JSR DRAWE1 
JSR INITE2 
JSR DRAWE1 
LDA #$BB 
JSR WAIT 
JSR INITE2 
JSR DRAWE1 
JSR INITE3 
JSR DRAWE1 
LDA #$BB 
JSR WAIT 
JSR INITE3 
JSR DRAWE1 
JSR INITE4 
JSR DRAWE2 
LDA #$FF 
JSR WAIT 


sRESULT IS 0 IF NO COLLISION 


;DRAW BULLET 


;ERASE PLANE 

3ADD 1 TO SCORE 

;DISPLAY SCORE 

sEXPLOSION DISPLAY AND SOUND 

;1F COUNT=100, 

THEN GO TO 

STOP PROGRAM 

sERASE MAN 

;INITIALIZE P, B, AND READ PADDLE 


;BDRAW WITHOUT COLLISION TEST 


;DRAW 
sEXPLOSION SOUND 


;ERASE 
;DRAW 


;ERASE 
;DRAW 


;ERASE 
;DRAW 


Putting It All Together: The Game 


185 


186 


456 
457 
458 


JSR INITE4 
JSR DRAWE2 
RTS 


KEKKKEKKKKKKKEKKKKKKKKKKKKER 


SOUND 
SOUND1 


LDY 
BIT 
LDA 
JSR 
DEY 
BNE 
RTS 
KRKKKEKEKKKKKEKEKKRKEKKKKKER 
DRAWE1L LDY HORIZB 

LDX ELINE 

LDA HI,X 

STA HIGH 

LDA LO,X 

STA LOW 

LDX XCOUNT 

LDA (LOW) ,Y 

EOR ESHAPE,X 

STA (LOW),Y 

INC XCOUNT 

INC ELINE 

LDA ELINE 

CMP EDEPTH 

BLT DRAWE1 

LDA ELINEA 

STA ELINE 

RTS 
KEKKKEKEKKKKKKKKKKKKKKKK 
DRAWE2 LDY HORIZB 
LDX ELINE 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDX XCOUNT 
LDA (LOW),Y 
EOR ESHAPE,X 
STA (LOW),Y 
INC XCOUNT 
INY 
LDX 
LDA 
EOR 
STA 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 


#$02 
SPEAKER 
#$60 
WAIT 


SOUND1 


XCOUNT 
(LOW) ,Y 
ESHAPE ,X 
(LOW) ,Y 
XCOUNT 
ELINE 
ELINE 
EDEPTH 
DRAWE2 
ELINEA 
ELINE 


KRKKKKKKKKKKKKKKKKKK KKK 


INITEl1 LDA #$00 


Reece meter eens eee reese eee ee eeeeeeseereneseseeees 


3ERASE 


;EXPLOSION SOUND 


sROUTINE FOR FIRST 3 
EXPLOSION SHAPES 


sROUTINE FOR FOURTH 
EXPLOSION SHAPE 


sINITIALIZE FIRST EXPLOSION 


eieidaisibqeeibinibioeeo.aigie'og oye asiegieisasebslab ves ceeilnweseieee cee sie seeuneegaines cae ahss Seccnnesscveoeceeeeaseees ee Putting It All Together: The Game 


63CF: 
63D2: 
63D4: 
63D7: 
63DA: 
63DB: 
63DD: 
63E0: 
63E1: 
63E3: 
63E6: 
63E8: 
63EB: 
63EE: 
63EF: 
63F1: 
63F4: 
63F5: 
63F7: 
63FA: 
63FC: 
63FF: 
6402: 
6403: 
6405: 
6408: 
6409: 
640B: 
640E: 
6410: 
6413: 
6416: 
6417: 
6419: 
641C: 


641D: 
6420: 
6422: 
6424: 
6425: 
6426: 
6427: 
6428: 
642A: 
642D: 
642E: 
6431: 
6434: 
6436: 
6438: 
6439: 
643A: 
643B: 
643C: 
643E: 
6441: 


6D 
00 


60 


60 


60 


60 


60 


60 


60 


60 


60 


60 


60 


60 


60 


60 


60 


60 


60 


64 


60 
60 


64 


459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 


INITE2 


INITES 


INITE4 


STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 


XCOUNT 
#$09 
ELINEA 
ELINE 


#$05 
EDEPTH 


#$05 ;INITIALIZE SECOND EXPLOSION 
XCOUNT 

#$09 

ELINEA 

ELINE 


#$05 
EDEPTH 


#$0A ;INITIALIZE THIRD EXPLOSION 
XCOUNT 

#$05 

ELINEA 

ELINE 


#$08 
EDEPTH 


#$12 ;INITIALIZE FOURTH EXPLOSION 
XCOUNT 

#$01 

ELINEA 

ELINE 


#$0C 
EDEPTH 


KEKKKKKKKKKKKKKKKKKK KKK 


SCORE 


C10 


LDA 
CMP 
BGE 
ASL 
ASL 
ASL 
TAX 
LDY 
JSR 
RTS 
INC 
LDA 
CMP 
BGE 
ASL 
ASL 
ASL 
TAX 
LDY 
JSR 
LDA 


SUM ;GET SCORE (0-9) 
#$0A ;GREATER THAN 9? 
C10 3IF YES, BRANCH 
;1F NO, MULTIPLY BY 8 


#$13 3BYTE POSITION FOR FIRST DIGIT 
PRINT ;PRINT DIGIT 


COUNTER ;INC COUNTER (INITIALLY 0) 

COUNTER 

#$0A sMORE THAN 9? 

STOP 1 ;IF YES, PRINT 100 AND STOP GAME 
;1F NO, MULTIPLY BY 8 


#$12 3BYTE POSITION OF MIDDLE DIGIT 
PRINT 3PRINT DIGIT 
#$00 :ZERO SUM AND 


187 


6443: 8D 39 60 516 STA SUM RETURN TO PRINT 0 

6446: 4C 1D 64 517 JMP SCORE IN FIRST DIGIT POSITION 

6449: A2 08 518 STOP1 LDX #$08 ;PRINT 100 IN COUNTER 

644B: AO 11 519 LDY #$11 

644D: 20 6D 64 520 JSR PRINT 

6450: A2 00 52) LDX #$00 

6452: AO 12 522 LDY #$12 

6454: 20 6D 64 523 JSR PRINT 

6457: AO 13 524 LDY #$13 

6459: 20 6D 64 525 JSR PRINT 

645C: AQ 01 526 LDA #$01 3SET ST TO INDICATE 

645E: 8D 51 60 527 STA ST COUNTER=100 

6461: 60 528 RTS 

6462: 2C 00 CO 529 STOP2 BIT $C000 sANY KEY PRESSED? 

6465: 10 FB 530 BPL STOP2 ;1F NO, BRANCH BACK & WAIT 
Sot: * FOR KEYSTROKE 

6467: 2C 10 CO 532 BIT $C010 ;1F YES, CLEAR KEYBOARD STROBE 

646A: 4C 7C 60 533 JMP PGM AND START PROGRAM OVER 


534 KREKKKKKKEKKKKKKKKKKKKK KKK 


646D: BD 9E 64 535 PRINT LDA NSHAPE,X ;RETRIEVE NUMBER SHAPE 


6470: 99 DO 23 536 STA $23D0,Y  ;LINE #$B8 (184) 
6473: BD 9F 64 537 LDA NSHAPE+1,X 
6476: 99 DO 27 538 STA $27D0,Y — ;LINE #$B9 (185) 
6479: BD AO 64 539 LDA NSHAPE+2,X 
647C: 99 DO 2B 540 STA $2BD0,Y — ;LINE #$BA (186) 
647F: BD Al 64 541 LDA NSHAPE+3,X 
6482: 99 DO 2F 542 STA $2FD0,Y — ;LINE #$BB (187) 
6485: BD A2 64 543 LDA NSHAPE+4,X 
6488: 99 DO 33 544 STA $33D0,Y  ;LINE #$BC (188) 
648B: BD A3 64 545 LDA NSHAPE+5,X 
648E: 99 DO 37 546 STA $37D0,Y — ;LINE #$BD (189) 
6491: BD A4 64 547 LDA NSHAPE+6,X 
6494: 99 DO 3B 548 STA $3BD0,Y  ;LINE #$BE (190) 
6497: BD A5 64 549 LDA NSHAPE+7 ,X 
649A: 99 DO 3F 550 STA $3FD0,Y § ;LINE #$BF (191) 
6490: 60 551 RTS 

552 KEKKKKRKKKEKEKEKKKKKKK KK KK KK KKEK 
649E: 00 1C 22 553 NSHAPE HEX 001C22222222221C ;NUMBER SHAPES - "0" 
64A1: 22 22 22 22 1C 
64A6: 00 08 OC 554 HEX 00080C080808081C "a 
64A9: 08 08 08 08 1C 
64AE: 00 1C 22 555 HEX 001C22201008043E #2" 
64B1: 20 10 08 04 3E 
64B6: 00 1C 22 556 HEX 001C22201¢20221C ;"3" 
6489: 20 1C 20 22 1C 
64BE: 00 10 18 557 HEX 00101814123E1010 =; "4" 
64C1: 14 12 3E 10 10 
64C6: 00 3E 02 558 HEX 003E021£2020201E 5"5" 
64C9: 1E 20 20 20 lE 
64CE: 00 1C 22 559 HEX 001C22021£22221¢ ;"6" 
64D1: 02 1£ 22 22 1C 
64D6: 00 3E 20 560 HEX 003E201008040404 =; "7" 
6409: 10 08 04 04 04 
64DE: 00 1C 22 561 HEX 001C22221¢22221¢ *o* 
64E1: 22 1C 22 22 1C 
64E6: 00 1C 22 562 HEX 001C22223¢20221¢ seg 


64E9: 22 3C 20 22 1C 


POOR e eee meee meee eee eee eee EEE EEE SEES HE EEEEE HEE EESEEEESEEEEEEESE EEE EE EEE EE EEEEEOESEEE EEO E EEE EES 


64EE: 
64F 1: 
64F7: 
64FA: 
6500: 
6503: 
6509: 
650C: 
6512: 
6515: 
6518: 
651E: 
6521: 
6527: 
652A: 
6530: 
6533: 
6539: 
653C: 
653F: 
6545: 
6548: 
654E: 
6551: 
6557: 
655A: 
6560: 
6563: 
6566: 
656C: 
656F: 
6575: 
6578: 
657E: 
6581: 
6587: 
658A: 
658D: 
6593: 
6596: 
659C: 
659F: 
65A5: 
65A8: 
65AE: 
65B1: 
65B4: 
65BA: 
65BD: 
65C3: 
65C6: 
65CC: 
65CF: 
65D5: 
65D8: 
65DB: 
65E1: 


MSHAPE1 
01 


00 
00 
00 


MSHAPE2 
02 


00 
00 
00 


MSHAPE3 
04 


MSHAPE4 
08 


01 
01 
00 


MSHAPE5S 
11 


03 
03 
03 


MSHAPE6 
23 


07 
07 
06 


MSHAPE7 
47 


HEX 
HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 


000E01000E01000E01 
004401007F00601F00 
301F00181F00001F00 
001F00001B00403100 


606000 
001C02001C02001C02 


000803007E01003E00 
003F00403F00003E00 
003E00003600003600 


006300 
003804003804003804 


001006007C03007C00 
007C00007E00007C00 
003800003800006C00 


004601 
007008007008007008 


00200C007807007801 
007801007801007801 
007000007000007000 


007000 
006011006011006011 


00401800700F 007003 
007003007803007003 
006001006001003003 


001806 
004023004023004023 


00003100601F006007 
007007007807006007 
006007006006006006 


00300C 
00004 7000047000047 


00006200403F00700F 


;MAN SHAPE TABLES 


Putting It All Together: The Game 
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190 


65E4: 
65EA: 
65ED: 
65F3: 
65F6: 
65FC: 
65FF: 
6600: 
6601: 
6602: 
6603: 
6604: 
6605: 
6606: 
6609: 
660B: 
660E: 
6610: 
6613: 
6618: 
661B: 
6620: 
6623: 
6628: 
662B: 
6630: 
6633: 
6639: 
663C: 
663F: 
6642: 


6648: 
664B: 
664E: 
6651: 
6657: 
665A: 
665D: 
6660: 
6666: 
6669: 
666C: 
666F : 


6675: 
6678: 
667B: 
667E: 
6684: 
6687: 
668A: 
668D: 
6693: 
6696: 
6699: 
669C: 
66A0: 
66A3: 


3F 
OF 
OF 
OF 
OD 
30 


00 70 


OF 
OF 
18 


BSHAPE1 
BSHAPE2 
BSHAPE3 
BSHAPE4 
BSHAPES 
BSHAPE6 
BSHAPE7 
ESHAPE 


PSHAPE1 
00 


PSHAPE2 
00 


PSHAPE3 
00 


PSHAPE4 
01 


PSHAPES 
03 


PSHAPE6 
07 


PSHAPE7 
OF 


BYTETBL 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 


00580F004COF00400F 
00400F00400D006018 
003030 


01 ;BULLET SHAPES 


28221A2514 
2052443200 
383E7F7E7E3F3F1C 
18067COF 7C3F7E3F 
7C7F7C3F7E3F7F1F 
7EOF7C1F700F4003 
0200000600007E1F00 
7E37007E7F00 
0400000C00007C3F00 
7C6FO07C7FO1 
0800001 80000787F00 
785F01787F03 
100000300000707F01 
703F03707F07 
200000600000607F 03 
607F06607F OF 
400000400100407F07 
407FOD407F1F 
000100000300007F OF 
007F1B007F 3F 
00000000000000 
01010101010101 


;EXPLOSION SHAPES - NO. 1 


3NO. 2 
3NO. 3 


3NO. 4 


3PLANE SHAPES 


FOR e eee eee e HEHEHE EEE EEE SHEE EEE EEHEEEE EEE HEEE HEHE EE EE EEE EEEEEEEESES EOE O EEE EEE EEE eEEeeeeeeeeeees 


66A7: 
66AA: 
66AE: 
66B1: 
66B5: 
66B8: 
66BC: 
66BF: 
66C3: 
66C6: 
66CA: 
66CD: 
66D1: 
66D4: 
66D8: 
66DB: 
66DF: 
66E2: 
66E6: 
66E9: 
66ED: 
66F0: 
66F4: 
66F7: 
66FB: 
66FE: 
6702: 
6705: 
6709: 
670C: 
6710: 
6713: 
6717: 
671A: 
671E: 
6721: 
6725: 
6728: 
672C: 
672F: 
6733: 
6736: 
673A: 
673D: 
6741: 
6744: 
6748: 
674B: 
674F: 
6752: 
6756: 
6759: 
675D: 
6760: 
6764: 
6767: 
676B: 
676E: 
6772: 


HEX 


HEX 


02020202020202 
03030303030303 
04040404040404 
05050505050505 
06060606060606 
07070707070707 
08080808080808 
09090909090909 
OAOAOADAOAOADA 
OBOBOBOBOBOBOB 
ocococococococ 
ODODODODODODOD 
OEOEOEOQEOEOEOE 
OF OF OF OF OFOF OF 
10101010101010 
11111111111111 
12121212121212 
13131313131313 
14141414141414 
15151515151515 
16161616161616 
17171717171717 
18181818181818 
19191919191919 
1A1ALAIAIALAIA 
1B1B1B1B1B1B1B 
1€1C1C1C1C1C1C 
1D1D1D1D1D1D1D 
1ELELELELELELE 
1FIFIF1F1F1F1F 
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191 


6775: 2E IRF CIF 


6779: 20 20 20 657 HEX 20202020202020 
677C: 20 20 20 20 
6780: 21 21 21 658 HEX 21212121212121 
678352121 21 21 
6787: 22 22 22 659 HEX 22222222222222 
678A: 22 22 22 22 
678E: 23 23 23 660 HEX 23232323232323 
6791: 23 23 23 23 
6795: 24 24 24 661 HEX 24242424242424 


6798: 24 24 24 24 
679C: 00 01 02 662 OFFSET HEX 00010203040506 
679F: 03 04 05 06 


67A3: 00 01 02 663 HEX 00010203040506 

67A6: 03 04 05 06 

67AA: 00 01 02 664 HEX 00010203040506 

67AD: 03 04 05 06 

67B1: 00 01 02 665 HEX 00010203040506 

67B4: 03 04 05 06 

67B8: 00 01 02 666 HEX 00010203040506 

67BB: 03 04 05 06 

67BF: 00 01 02 667 HEX 00010203040506 

67C2: 03 04 05 06 

67C6: 00 01 02 668 HEX 00010203040506 

67C9: 03 04 05 06 

67CD: 00 01 02 669 HEX 00010203040506 
192 67D0: 03 04 05 06 

6704: 00 01 02 670 HEX 00010203040506 
a 6707: 03 04 05 06 

67DB: 00 01 02 671 HEX 00010203040506 

67DE: 03 04 05 06 

67E2: 00 01 02 672 HEX 00010203040506 

67E5: 03 04 05 06 

67E9: 00 01 02 673 HEX 00010203040506 

67EC: 03 04 05 06 

67F0: 00 01 02 674 HEX 00010203040506 

67F3: 03 04 05 06 

67F7: 00 01 02 675 HEX 00010203040506 

67FA: 03 04 05 06 

67FE: 00 01 02 676 HEX 00010203040506 

6801: 03 04 05 06 

6805: 00 01 02 677 HEX 00010203040506 

6808: 03 04 05 06 

680C: 00 01 02 678 HEX 00010203040506 

680F: 03 04 05 06 

6813: 00 01 02 679 HEX 00010203040506 

6816: 03 04 05 06 

681A: 00 01 02 680 HEX 00010203040506 

681D: 03 04 05 06 

6821: 00 01 02 681 HEX 00010203040506 

6824: 03 04 05 06 

6828: 00 01 02 682 HEX 00010203040506 

682B: 03 04 05 06 

682F: 00 01 02 683 HEX 00010203040506 

6832: 03 04 05 06 

6836: 00 01 02 684 HEX 00010203040506 

6839: 03 04 05 06 

683D: 00 01 02 685 HEX 00010203040506 


6840: 03 04 05 06 


FRR e eee eR EEE EERE EEE EE EEO HEE EEE EEE EEEEEEEE EEE EEE SHEE EEE HEHEHE EEE EE EEE EEE ESSE SEES EEE E EEE EEE SEES 


6844: 
6847: 
684B: 
684E: 
6852: 
6855: 
6859: 
685C: 
6860: 
6863: 
6867: 
686A: 
686E: 
6871: 
6875: 
6878: 
687C: 
687F: 
6883: 
6886: 
688A: 
688D: 
6891: 
6894: 
6898: 
689B: 
689F: 
68A2: 
68A7: 
68AA: 
68AF: 
68B2: 
68B7: 
68BA: 
68BF: 
68C2: 
68C7: 
68CA: 
68CF: 
68D2: 
68D7: 
68DA: 
68DF : 
68E2: 
68E7: 
68EA: 
68EF: 
68F2: 
68F7: 
68FA: 
68FF: 
6902: 
6907: 
690A: 
690F: 
6912: 
6917: 
691A: 
691F: 


HEX 


HEX 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
00010203040506 
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2024282C3034383C ; HIGH BYTE LINE ADDRESSES 


2024282C3034383C 
2125292D3135393D 
2125292D3135393D 
22262A2E32363A3E 
22262A2E32363A3E 
23272B2F 33373B3F 
23272B2F 33373B3F 
2024282C3034383C 
2024282C3034383C 
2125292D3135393D 
2125292D3135393D 
22262A2E32363A3E 
22262A2E32363A3E 
23272B2F 33373B3F 
23272B2F33373B3F 
2024282C3034383C 


193 


194 


6922: 
6927: 
692A: 
692F: 
6932: 
6937: 
693A: 
693F: 
6942: 
6947: 
694A: 
694F: 
6952: 
6957: 
695A: 
695F: 
6962: 
6967: 
696A: 
696F: 
6972: 
6977: 
697A: 
697F: 
6982: 
6987: 
698A: 
698F: 
6992: 
6997: 
699A: 
699F: 
69A2: 
69A7: 
69AA: 
69AF: 
69B2: 
69B7: 
69BA: 
69BF: 
69C2: 
69C7: 
69CA: 
69CF: 
69D2: 
69D7: 
69DA: 
69DF: 
69E2: 
69E7: 
69EA: 
69EF: 
69F2: 
69F7: 
69FA: 
69FF: 
6A02: 
6A07: 
6A0A: 


HEX 


HEX 


2024282C3034383C 
2125292D3135393D 
2125292D3135393D 
22262A2E32363A3E 
22262A2E32363A3E 
23272B2F33373B3F 
23272B2F33373B3F 
0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
2828282828282828 
A8A8A8A8A8A8A8A8 
2828282828282828 
A8A8A8A8A8A8A8A8 
2828282828282828 
A8A8A8A8A8A8A8A8 
2828282828282828 
A8A8A8A8A8A8A8A8 
5050505050505050 
DODODODODODODODO 
5050505050505050 
DODODODODODODODO 
5050505050505050 
DODODODODODODODO 


Peete meme ee eee eee eee eee eee eee eH OEE Eee EE EEE HEHE EEE Eee ee eeeees 


; LOW BYTE LINE ADDRESSES 


ais vig sia 06 0:0 4106 :6.0:650 Binnie'6 0.6\n'ens 6668040 5)0d 4 SUSE HE SO 08 ve neneimauerosTsaseeceweteekeseessavessauneadwes Putting It All Together: The Game 


6A0F: 50 50 50 745 HEX 5050505050505050 
6A12: 50 50 50 50 50 
6A17: DO DO DO 746 HEX DODODODODODODODO 


6A1A: DO DO DO DO DO 


--End assembly-- 


2591 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B MLINE =$6003 MLINEA =$6004 
BLINE =$6005 DEPTH  =$6006 MHORIZ =$6007 BHORIZ =$6008 
HORIZB =$6009 HORIZM =$600A BULON =$600B XCOUNT =$600C 
DELAY =$600D BTEMP =$600E MTEMP =$600F ELINE  =$6036 
ELINEA =$6037 EDEPTH =$6038 SUM =$6039 COUNTER =$603A 
DE =$603B PCOUNTER=$603C PLINE =$603D PLINEA =$603E 
PBYTE =$603F PDEPTH =$6040 PSHPNO =$6041 PTEMP  =$6042 
ST =$6051 MSHPADR =$6052 BSHPADR =$6060 PSHPADR =$606E 
PGM =$607C CLR1 =$6090 CLR =$6094 LN =$60B6 
PI =$60CB BI =$60CE PADDLE =$60D1 PSTART =$60D7 
PSTART1 =$60F4 PSTART2 =$60FC BUL =$610E BULLET1 =$6129 
BULLET =$612E LONG =$6153 MINITIAL=$6156 BINITIAL=$6165 
SINITIAL=$6170 PR =$617B PINITIAL=$6184 PCONT  =$6196 
PLOADSHP=$61AA PLOADSHP 1=$61BB PDLE =$61C6 PDLE1 =$61DC 195 
LOAD =$61F6 MDRAW =$6201 MDRAW1 =$6206 PDRAW =$624B 
PDRAW1 =$6250 LOADBUL =$6295 BDRAW  =$62B8 NOHIT  =$62D4 ie 
COLLISION=$62DC LG =$62F5 BXDRAW =$62F8 EXPLODE =$6310 
SOUND =$6353 SOUND1 =$6355 DRAWE1 =$6361 DRAWE2 =$6390 
INITE1 =$63CD INITE2 =$63E1 INITE3 =$63F5 INITE4 =$6409 
SCORE  =$641D C10 =$642E STOP1  =$6449 STOP2  =$6462 
PRINT  =$646D NSHAPE =$649E MSHAPE1 =$64EE MSHAPE2 =$6515 
MSHAPE3 =$653C MSHAPE4 =$6563 MSHAPES =$658A MSHAPE6 =$65B1 
MSHAPE7 =$65D8 BSHAPE1 =$65FF BSHAPE2 =$6600 BSHAPE3 =$6601 
BSHAPE4 =$6602 BSHAPE5 =$6603 BSHAPE6 =$6604 BSHAPE7 =$6605 
ESHAPE =$6606 PSHAPE1 =$6630 PSHAPE2 =$663F PSHAPE3 =$664E 
PSHAPE4 =$665D PSHAPES =$666C PSHAPE6 =$667B PSHAPE7 =$668A 
BYTETBL =$6699 OFFSET =$679C HI =$689F LO =$695F 
SPEAKER =$C030 GRAPHICS=$C050 MIXOFF =$C052 PAGEl =$C054 
HIRES =$C057 BUTTON =$C061 PREAD =$FBIE WAIT =$FCA8 
Well, that’s it. Hooray and huzzah. Pop the cork, sound the horn, raise the 

flag, lean back, light a cigar, and get reacquainted with your loved ones. But don’t 

rest on your laurels too long—there’s more to come for all you masochists out 

there. 


In the last chapter, I will make specific suggestions for game modifications 
using routines discussed in both Part One and Part Two. For now, to get you 
started and to see how easy it is (and also just for the heck of it), I’ve decided to 
present one such modification. The modification is simple—the plane is drawn 
with the DRAW-DRAW protocol instead of DRAW-ERASE. We can do this 
because the plane itself is not involved in collision detection, but rather the 
bullet. Here is the flowchart: 


areas NVW MVda 
ZIHOHW = ZIHOHE éNO 1371N@ 


ON 


3100Vd Ova" 


WILINIG 


3Wv9 dois [001 < w3NNOdd 
A 
P| iaassaud Aa» YSLNNODd ONI 
ON 
meh WILINId 
WILINIW 
TWILINIS 


LS GNV HALNNOOd OW3Z 


ANI WOLLOS MvyG 


N3340S YW319 GNV Av1dSIG 


YOVdHS OLNI 
SASS3HdQvV SdVHS GVO7 
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196 
od 


The Game 


197 
if 


NVW SSVu3 


ON 


SOA 


SGNNOS ¥ 
S3dVHS NOISO1dxX3 


édOl WOuS S > 


SANIT 8 dN SANG SAOW 


t= 1S LS ‘00t Av1dSIG 
SOA 


4001 = AHOOS 
ON 
3YOOS AV1dSIG 


NVW 2 
1371N€ aSvus 


dYOOS ONI 


LATING Mvea 
ON 
ANV1d 3SVus eer éNOISITIO9 NVW ASV 


AV1S0 
ON 


NO 1371N¢8 LSS égassadd NOLLNG 


éNO 1371Nd 
Y3ALNNODd ONI SOA 
ATDAD Y3SHLO 


AWYaAd Y3axW3adS MOND 
ANV1d 8 NVW ASVu3 3NW1d MVHa 


ON 


Sa 
éN33¥OSs 40 GN3 ALAS NS3SHOS LXAN é9< ONdHSd 
sa, 
ON - 
ONdHSd NI 44$# ONdHSd ONI 


SLAG NSSYHOS HLIM dW3ALd ONV 


SOA 


é00lL< Y3LNNOOd 


ON 


Hi-Res Graphics and Animation Using Assembly Language POTTTPITTT LITT LiTTrr reer Tr Terie eee 


As you can see, very few changes are required and all relate to the plane 
erase, which is done with a separate PXDRAW routine using the EOR instruction. 
In contrast to Program 10-1, where the plane is erased before every paddle 
access, here the plane is erased at only two places—at the end of the screen and 
after a collision. You might also notice that the plane sound is a bit higher in 
pitch with faster clicks—this is because DRAW-DRAW takes less time than 
DRAW-ERASE. 

The change, simple as it is, has resulted in a somewhat better program 
because the plane moves with less flicker. We'll see in the last chapter how we 
can effect even other modifications to make the program more interesting. 


JPROGRAM 10-2 


:ASM 
1 **** THE GAME WITH PLANE DRAWN WITH DRAW=-DRAW **** 
2 ORG $6000 
6000: 4C 7C 60 3 JMP = PGM 
4 MLINE DS 
5 MLINEA DS 
6 BLINE DS 
ri DEPTH DS 
8 MHORIZ ODS 
9 BHORIZ ODS 


10  HORIZB-~ ODS 
11 HORIZM~ ODS 
12 ~BULON DS 
13. XCOUNT DS 
14. ~—~DELAY DS 
15 BTEMP DS 
16 MTEMP DS 
1? ELINE DS 
18 ELINEA’ ODS 
19 EDEPTH ODS 


wo 


20 ~=SUM DS 
21 COUNTER ODS 
22. DE DS 


23. +=PCOUNTER DS 
24 ~—~PLINE DS 
25  PLINEA’ ODS 
26 = PBYTE DS 
27 PDEPTH ODS 
28 PSHPNO ODS 


De el eel ee ee ee ee ee ct cell cell cecil eel ell ell eel 


29 ~=PTEMP DS 5 

30. .ST DS 

31 GRAPHICS = $C050 
32  MIXOFF = $C052 
33. HIRES = $C057 
34 = PAGE1 = $C054 
35 HIGH = $1B 
36 LOW = $1A 
37. WAIT = $FCA8 
38  PREAD = $FBI1E 
39 BUTTON = $C061 ;BUTTON 0 
40 SPEAKER = $C030 


41  ¥*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
42  *CONTINUE FOR ALL 7 SHAPES 


6052: 32 43. MSHPADR DFB- #<MSHAPE1 
6053: 65 ag DFB #>MSHAPE1 
6054: 59 45 DFB #<MSHAPE2 


6055: 65 46 DFB #>MSHAPE2 


date wen aS6600 090 e0des dele e Reseed caseesulene Nees HEE ssNeces es benceeWenesWibexenwacdep aus becasue asvacwees Putting It All Together: The Game 


6056: 
6057: 
6058: 
6059: 
605A: 
605B: 
605C: 
605D: 
605E: 
605F: 
6060: 
6061: 
6062: 
6063: 
6064: 
6065: 
6066: 
6067: 
6068: 
6069: 
606A: 
606B: 
606C: 
606D: 
606E: 
606F: 
6070: 
6071: 
6072: 
6073: 
6074: 
6075: 
6076: 
6077: 
6078: 
6079: 
607A: 
607B: 
607C: 
607F: 
6082: 
6085: 
6088: 
608A: 
608C: 
608E: 
6090: 
6092: 
6094: 
6096: 
6097: 
6099: 
609B: 
609D: 
609F: 
60A1: 
60A3: 
60A6: 
60A8: 
60AA: 
60AD: 


60 


68 


BSHPADR 


PSHPADR 


PGM 


CLR1 
CLR 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
LDA 
LDA 
LDA 
LDA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
BNE 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
LDX 
LDY 
LDA 
STA 


#<MSHAPE3 
#>MSHAPE3 
#<MSHAPE4 
#>MSHAPE4 
#<MSHAPE5 
#>MSHAPES 
#<MSHAPE6 
#>MSHAPE6 
#<MSHAPE7 
#>MSHAPE7 
#<BSHAPE1 
#>B SHAPE1 
#<BSHAPE2 
#>BSHAPE2 
#<BSHAPE3 
#>BSHAPE3 
#<BSHAPE4 
#>B SHAPE4 
#<BSHAPE5 
#>BSHAPE5 
#<BSHAPE6 
#>B SHAPE6 
#<BSHAPE7 
#>B SHAPE7 
#<PSHAPE1 
#>PSHAPE1 
#<PSHAPE2 
#>PSHAPE2 
#<PSHAPE3 
#>P SHAPE3 
#<PSHAPE4 
#>PSHAPE4 
#<PSHAPES 
#>PSHAPE5S 
#<PSHAPE6 
#>PSHAPE6 
#<PSHAPE7 
#>PSHAPE7 
GRAPHICS 
MI XOFF 
HIRES 
PAGE1 
#$00 

LOW 

#$20 

HIGH 

#$00 

#$00 
(LOW) ,Y 


CLR 
HIGH 
HIGH 
#$40 
CLR1 
#$50 
DELAY 
#$B7 
#$00 
HI,X 
HIGH 


sHIRES,P.1 


;CLEAR SCREEN 1 


;LOAD DELAY 
;DRAW BOTTOM LINE 


199 


| ES 


60AF : 
60B2: 
60B4: 
60B6: 
60B8: 
60B9: 
60BB: 
60BD: 
60BF: 
60C2: 


60C5: 
60C8: 
60CB: 
60CE: 
60D1: 
60D4: 
6007: 
60DA: 
60DD: 
60DF: 
60E1: 
60E4: 
60E7: 
60E9: 


60EB: 
60EE: 
60F1: 
60F4: 
60F7: 
60FA: 
60FC: 
60FF: 
6102: 
6105: 
6108: 
610B: 


610E: 
610F: 
6111: 
6114: 
6117: 
6119: 
611B: 
611E: 
6120: 
6123: 
6126: 
6129: 
612C: 
612E: 
6131: 
6134: 
6137: 
613A: 
613D: 
6140: 
6143: 
6146: 


108 
109 
110 
111 
112 
113 
114 
115 
116 
La7 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 


LDA LO,X 
STA LOW 
LDA #$7F 
LN STA (LOW),Y 
INY 
CPY #$27 
BLT LN 
LDA #$00 
STA PCOUNTER 
STA ST 


KkKKKKKKKKK MAIN PROGRAM KKKKKKKKKK 


JSR SINITIAL — ; INITIALIZATION 
JSR MINITIAL 
PI JSR PINITIAL 
BI JSR BINITIAL 
PADDLE JSR POLE ;READ PADDLE 
JSR MDRAW ;DRAW MAN 
PSTART INC PSHPNO FIRST SHAPE NUMBER TO ZERO 
LDA PSHPNO 
CMP #$07 ;DRAWN ALL 7 SHAPES? 
BLT PSTART2  ;IF NO, DRAW PLANE 
INC PBYTE ;IF YES, NEXT SCREEN BYTE 
LDA PBYTE 
CMP #$26 sEND OF SCREEN? 
BLT PSTART1  ;IF NO, RESET SHAPE NO. & 
‘ CONTINUE DRAW 
JSR MDRAW sIF YES, ERASE MAN AND 
DEC PBYTE 
JSR PXDRAW — ERASE PLANE AND 
JSR PINITIAL INITIALIIZE PLANE AND 
JMP PADDLE GO BACK TO PADDLE READ 
PSTART1 LDA #$FF 
STA PSHPNO 
JUMP PSTART 
PSTART2 JSR PLOADSHP 
JSR PDRAW ;DRAW PLANE 
INC DE sACCESS SPEAKER EVERY OTHER CYCLE 
LDA DE 
xk 
LSR ;C=0 IF DE IS EVEN 
BCC BUL ;C=1 IF DE IS ODD 
BIT SPEAKER 
BUL LDA BULON 
CMP #$01 51S BULLET ON? 
BEQ BULLET —— ;IF YES, CONTINUE BULLET DRAW 
LDA BUTTON — ;IF NO, IS BUTTON PRESSED? 
BMI BULLET1 IF YES, DRAW BULLET 
LDA DELAY ;IF NO, 
JSR WAIT DELAY AND 
JSR MDRAW ERASE MAN AND 
JMP PADDLE READ PADDLE AGAIN 
BULLET! LDA #$01 ;SET BULLET ON 
STA BULON 
BULLET JSR LOADBUL = ;LOAD BULLET SHAPE INTO BTEMP 
JSR BDRAW ;DRAW BULLET & TEST FOR COLLISION 
LDA DELAY 
JSR WAIT sDELAY 
JSR BXDRAW — ;ERASE BULLET 
JSR MDRAW sERASE MAN 
LDA BLINE 
SEC 
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6147: 
6149: 
614C: 
614E: 
6150: 
6153: 


6156: 
6158: 
615B: 
615E: 
615F: 
6161: 
6164: 


6165: 
6167: 
616A: 
616C: 
616F: 


6170: 
6172: 
6175: 
6178: 
6179: 
617B: 
617E: 
617F: 
6181: 
6183: 


6184; 


6186: 
6189: 


618C: 
618F: 
6191: 
6193: 
6196: 
6198: 
619B: 
619D: 
61A0: 
61A3: 
61A4: 
61A6: 
61A9: 


61AA: 
61AD: 
61AE: 
61AF: 
61B2: 
61B4: 
61B7: 
61B9: 


60 
60 


60 
60 


169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 


SBC 
STA 
CMP 
BLT 
JMP 
LONG JMP 


akkkk KK KKK SUBROUTINES KKKKKKKKKK 


MINITIAL LDA 
STA 
STA 
CLC 
ADC 
STA 


sMOVE BLINE UP 8 LINES 


3LESS THAN 5 LINES FROM TOP? 
31F YES, TAKE BRANCH 
;1F NO, READ PADDLE AGAIN 


#$AA 
MLINE 
MLINEA 


#$0D 
DEPTH 


RTS 
FIO IOI IOI III IK 


BINITIAL LDA 
STA 
LDA 
STA 
RTS 


#$00 
BULON 
#$A4 
BLINE 


;BULON = O IF 
BULLET NOT ON SCREEN 


KKKKKKKKKKKKK KKK KKK KKK 


SINITIAL LDA 
STA 
STA 
TAX 
LDY 
PR JSR 
INY 
CPY 
BLT 


#$00 
SUM 
COUNTER 


;SCORE DISPLAYS THREE O'S 


#$11 
PRINT 


#$14 
PR 


KKRKKKKEKKKEKKKKKKKKKKKKEK 


PINITIAL LDA 
* 


* 


STA 
INC 


LDA 
CMP 
BLT 
JMP 
PCONT LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 


#$FF 3PSHPNO LOADED WITH #$FF SO FIRST 
INC PSHPNO WILL LOAD PSHPNO 

WITH ZERO 

PSHPNO 
PCOUNTER ;PINITIAL AND PCOUNTER ACCESSED 
ONLY ON COLLISION OR 

END OF SCREEN 

PCOUNTER 
#$65 
PCONT 
STOP2 
#$00 
PBYTE 
#$08 
PLINEA 
PLINE 


#$05 
PDEPTH 


;PCOUNTER MORE THAN 100? 
31F NO, CONTINUE P INITIALIZATION 
;1F YES, STOP GAME 


KKKKKKKKKKEKKKKKKEKKEKKKKR 


PLOADSHP LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 


PSHPNO 


PSHPADR , X 
LOW 
PSHPADR+1,X 
HIGH 

#$00 


201 


61BB: Bl 1A 230 PLOADSHP1 LDA (LOW) ,Y 


61BD: 99 42 60 231 STA PTEMP,Y 
61C0: C8 232 INY 

61C1: CO OF 233 CPY #$0F 
61C3: 90 F6 234 BLT PLOADSHP1 
61C5: 60 235 RTS 


236 KKKEKKEKEKKKKKEKEKKKKKKKKKKKEK 


61C6: A2 00 237 ~PDLE LDX #$00 


61C8: 20 1E FB 238 JSR PREAD SREAD PADDLE 0 
61CB: 98 239 TYA 
61CC: 8D 07 60 240 STA MHORIZ 50-255 IN MHORIZ 
61CF: AD 0B 60 241 LDA BULON 
61D2: C9 01 =. 242 CMP #$01 51S BULLET ON? 
61D4: FO 06 =. 243 BEQ PDLE1 SIF YES, TAKE BRANCH 
61D6: AD 07 60 244 LDA MHORIZ SIF NO» SET BHORIZ EQUAL 
61D9: 8D 08 60 245 STA BHORIZ TO MHORIZ 
61DC: AC 07 60 246 PDLE1  LDY MHORIZ 
61DF: B9 DD 66 247 LDA BYTETBL,Y CONVERT 0-255 TO 0-36 (BYTE) 
61E2: 8D 0A 60 248 STA HORIZM “MAN BYTE POSITION 
61E5: B9 EO 67 249 LDA OFFSET,Y GET SHAPE NUMBER 
61E8: OA 250 ASL :LOAD SHAPE INTO MTEMP 
61E9: AA 251 TAX 
61EA: BD 52 60 252 LDA MSHPADR,X 
61ED: 85 1A 253 STA LOW 
61EF: BD 53 60 254 LDA MSHPADR+1,x 
61F2: 85 1B 255 STA HIGH 

202 61F4: AO 00 256 LDY #$00 
61F6: B1 1A 257: LOAD ~—sLDA’ (LOW),Y 

| 61F8: 99 OF 60 258 STA MTEMP.Y 
61FB: C8 259 INY 
61FC: CO 27 ~—«-260 CPY #$27 
61IFE: 90 F6 ~—-.261 BLT LOAD 
6200: 60 262 


263 KRKKKKKKKKKKKKKKKEKKKKKKE 


6201: A9 00 264 MDRAW LDA #$00 


6203: 8D 0C 60 265 STA XCOUNT 
6206: AE 03 60 266 MDRAW1 LDX MLINE 
6209: AC OA 60 267 LDY HORIZM 
620C: BD E3 68 268 LDA HI,X 
620F: 85 1B 269 STA HIGH 
6211: BD A3 69 270 LDA LO,X 
6214: 85 1A 271 STA LOW 
6216: AE OC 60 272 LDX XCOUNT 
6219: Bl 1A 273 LDA (LOW) ,Y 
621B: 5D OF 60 274 EOR MTEMP,X 
621E: 91 1A 275 STA (LOW) ,Y 
6220: C8 276 INY 

6221: Bl 1A 277 LDA (LOW),Y 
6223: 5D 10 60 278 EOR MTEMP+1,X 
6226: 91 1A 279 STA (LOW) ,Y 
6228: C8 280 INY 

6229: Bl 1A 281 LDA (LOW) ,Y 
622B: 5D 11 60 282 EOR MTEMP+2,X 
622E: 91 1A 283 STA (LOW),Y 
6230: EE 0C 60 284 INC XCOUNT 
6233: EE OC 60 285 INC XCOUNT 
6236: EE OC 60 286 INC XCOUNT 
6239: EE 03 60 287 INC MLINE 
623C: AD 03 60 288 LDA MLINE 
623F: CD 06 60 289 CMP DEPTH 


6242: 90 C2 290 BLT MDRAW1 


FORM meee eR Hee HEHE EEE EEE EE ESTEE EEE EEEEESE EOE EEEEH HEE EEEE HESS EEE EE EEE HESS EEE EEEEE HEHE EEES 


6244: 
6247: 
624A: 


624B: 
624D: 
6250: 
6253: 
6256: 
6259: 
625B: 
625E: 
6260: 
6263: 
6266: 
6268: 
6269: 
626C: 
626E: 
626F: 
6272: 
6274: 
6277: 
627A: 
627D: 
6280: 
6283: 
6286: 
6288: 
628B: 
628E: 


628F: 
6291: 
6294: 
6297: 
629A: 
6290: 
629F: 
62A2: 
62A4: 
62A7: 
62A9: 
62AC: 
62AE: 
62AF: 
62B1: 
62B4: 
62B6: 
62B7: 
62B9: 
62BC: 
62BE: 
62C1: 
62C4: 
62C7: 


60 
60 


291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
314 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
gol 


LDA 
STA 


MLINEA 
MLINE 


sRESET LINE 


KEKKKKKKKKKKEKKKEKKKKKKKK 


PDRAW 
PDRAW1 


LDA 
STA 
LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 


#$00 
XCOUNT 
PBYTE 
PLINE 
HI,X 
HIGH 
LO,X 
LOW 
XCOUNT 
PTEMP , X 
(LOW) ,Y 


PTEMP+1 ,X 
(LOW) ,Y 


PTEMP+2 ,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
PLINE 
PLINE 
PDEPTH 
PDRAW1 
PLINEA 
PLINE 


sRESET LINE 


KKKKKKKRKKEKEKKRKKKKKKEKKKKKKK 


PXDRAW 


PXDRAW1 


LDA 
STA 
LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INY 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 


#$00 
XCOUNT 
PBYTE 
PLINE 
HI,X 
HIGH 
LO,X 
LOW 
XCOUNT 
(LOW) ,Y 
PTEMP ,X 
(LOW) ,Y 


(LOW) ,Y 
PTEMP+1,X 
(LOW) ,Y 


(LOW) ,Y 
PTEMP+2 ,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
PLINE 
PLINE 
PDEPTH 
PXDRAW1 
PLINEA 
PLINE 


Putting It All Together: The Game 


Ss 


ws 


62D8: 


62D9: 
620C: 
62DF: 
62E0: 
62E2: 
62E5: 
62E8: 
62E9: 
62EA: 
62ED: 
62EF: 
62F2: 
62F4: 
62F6: 
62F8: 
62FB: 


62FC: 
62FF: 
6302: 
6305: 
6307: 
630A: 
630C: 
630E: 
6311: 
6313: 
6315: 
6318: 
631A: 
631D: 
631F: 


6320: 
6323: 
6326: 
6329: 
632C: 
632F: 
6331: 
6333: 
6336: 
6339: 


633G: 
633F: 
6342: 
6345: 
6347: 
634A: 
634C: 
634E: 
6351: 
6353: 


6354: 
6357: 
635A: 
635D: 


352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 


RTS 


Pee eee eee eee ESOC eee CeCe CeCe CeCe eee rece eee eee rere ee eee eee ee eee eer reer 


KKKKKKKKKKKKKKEKEKKKKKEKEK 


LOADBUL LDY 
LDA 
CLC 
ADC 
STA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 


BHORIZ ;CONVERTS 0-255 TO 
BYTETBL,Y SCREEN BYTE (0-36) 
;ADD 2 TO ALIGN BULLET 
#$02 WITH GUN 
HORIZB ;BULLET BYTE POSITION 
OFFSET,Y | ;GET BULLET SHAPE NUMBER 
;LOAD BULLET SHAPE INTO BTEMP 


BSHPADR, X 
LOW 
BSHPADR+1 ,X 
HIGH 

#$00 
(LOW) ,Y 
BTEMP 


KRKKKKKKREKKEKEKKKKKKKKER 


BDRAW LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
AND 
CMP 
BEQ 
JMP 
NOHIT LDA 
EOR 
STA 


BLINE 

HOR I ZB 

HI,X 

HIGH 

LO,X 

LOW 

(LOW) ,Y 

BTEMP ;RESULT IS 0 IF NO COLLISION 
#$00 

NOHIT 

COLLISION 

(LOW) ,Y ;DRAW BULLET 
BTEMP 

(LOW) ,Y 


KHKKKKKKEKEKKKKKKKKEKKKKKKKK 


COLLISION JSR PXDRAW 


INC 
JSR 
JSR 
LDA 
CMP 
BEQ 
JSR 
JMP 
LG JMP 


;ERASE PLANE 


KEKKEKKKKKEKEKKKKEKEKKKKKKK 


BXDRAW  LDX 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
EOR 
STA 
RTS 


KRKKKKKKEKKEKEKEEKKEKEKKKRKEKEE 


EXPLODE JSR 
JSR 
JSR 
JSR 


SUM ;ADD 1 TO SCORE 

SCORE ;DISPLAY SCORE 

EXPLODE ;EXPLOSION DISPLAY AND SOUND 
ST ;1F COUNT=100, 

#$01 THEN GO TO 

LG STOP PROGRAM 

MDRAW ;ERASE MAN 

PI ;INITIALIZE P, B, AND READ PADDLE 
STOP2 

BLINE ;BDRAW WITHOUT COLLISION TEST 
HORIZB 

HI,X 

HIGH 

LO,X 

LOW 

(LOW) ,Y 

BTEMP 

(LOW) ,Y 

INITE1 

DRAWE1 ;DRAW 

SOUND ;EXPLOSION SOUND 

INITE1 


; 


POPP O oreo ee eeree eee esse eee e eee EEE EE EE EEOC E SEES OOOO OOOO OEO COCO ESSE OES EEEeeeeeeeeeeeeeeeseseES 


6360: 
6363: 
6366: 
6369: 
636B: 
636E: 
6371: 
6374: 
6377: 
637A: 
637C: 
637F: 
6382: 
6385: 
6388: 
638B: 
638D: 
6390: 
6393: 
6396: 


6397: 
6399: 
639C: 
639E: 
63A1: 
63A2: 
63A4: 


63A5: 
63A8: 
63AB: 
63AE: 
63B0: 
63B3: 
63B5: 
63B8: 
63BA: 
63BD: 
63BF: 
63C2: 
63C5: 
63C8: 
63CB: 
63CD: 
63D0: 
63D3: 


6304: 
63D7: 
63DA: 
63DD: 
63DF: 
63E2: 
63E4: 
63E7: 
63E9: 
63EC: 
63EE: 
63F1: 
63F2: 


413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 


JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
JSR 
JSR 
JSR 


DRAWE1 s ERASE 
INITE2 

DRAWE1 ;DRAW 

#$BB 

WAIT 

INITE2 

DRAWE1 sERASE 
INITE3 

DRAWE1 ;DRAW 

#$BB 

WAIT 

INITE3 

DRAWE1 ERASE 
INITE4 

DRAWE2 sDRAW 

#$FF 

WAIT 

INITE4 

DRAWE2 ERASE 


KKKKKKKKKKKKKK KK KK KK KK KKK 


SOUND LDY 
SOUND1 BIT 
LDA 
JSR 
DEY 
BNE 
RTS 


#$02 ;EXPLOSION SOUND 
SPEAKER 

#$60 

WAIT 


SOUND1 


KkKKKKKKKKKK KKK KKK KKK KKK 


DRAWE1 LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
EOR 
STA 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 


HORIZB sROUTINE FOR FIRST 3 
ELINE EXPLOSION SHAPES 
HI,X 

HIGH 

LO,X 

LOW 

XCOUNT 

(LOW) ,Y 

ESHAPE, X 

(LOW) ,Y 

XCOUNT 

ELINE 

ELINE 

EDEPTH 

DRAWE1 

ELINEA 

ELINE 


KaKKKKKKKKKKKK KKK K KKK 


DRAWE2  LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
EOR 
STA 
INC 
INY 
LDX 


HORIZB sROUTINE FOR FOURTH 
ELINE EXPLOSION SHAPE 
HI,X 

HIGH 

LO,X 

LOW 

XCOUNT 

(LOW) ,Y 

ESHAPE , X 

(LOW) ,Y 

XCOUNT 


XCOUNT 


Putting It All Together: The Game 


Bs 
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Hi-Res Graphics and Animation Using Assembly Language 


63F5: 
63F7: 
63FA: 
63FC: 
63FF: 
6402: 
6405: 
6408: 
640A: 
640D: 
6410: 


6411: 
6413: 
6416: 
6418: 
641B: 
641E: 
641F: 
6421: 
6424: 
6425: 
6427: 
642A: 
642C: 
642F: 
6432: 
6433: 
6435: 
6438: 
6439: 
643B: 
643E: 
6440: 
6443: 
6446: 
6447: 
6449: 
644C: 
644D: 
644F: 
6452: 
6454: 
6457: 
645A: 
645B: 
645D: 
6460: 


6461: 
6464: 
6466: 
6468: 
6469: 
646A: 
646B: 
646C: 
646E: 


6471: 
6472: 
6475: 


60 
60 


474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
49] 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
ol? 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 


LDA 
EOR 
STA 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 


Ome eee meee a eee eee Eee OEE eH EEE EEE EEE EEE HEHE EEH eee ee eeeeseeeeees 


(LOW) ,Y 
ESHAPE,, X 
(LOW) ,Y 
XCOUNT 
ELINE 
ELINE 
EDEPTH 
DRAWE2 
ELINEA 
ELINE 


KEKKEKKKKEEKEKKKKKKKKKKKKRK 


INITE1 LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
INITE2 LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
INITE3 LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
INITE4 LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 


#$00 ; INITIALIZE FIRST EXPLOSION 
XCOUNT 

#$09 

ELINEA 

ELINE 


#$05 
EDEPTH 


#$05 s INITIALIZE SECOND EXPLOSION 
XCOUNT 

#$09 

ELINEA 

ELINE 


#$05 
EDEPTH 


#$0A sINITIALIZE THIRD EXPLOSION 
XCOUNT 

#$05 

ELINEA 

ELINE 


#$08 
EDEPTH 


#$12 s INITIALIZE FOURTH EXPLOSION 
XCOUNT 

#$01 

ELINEA 

ELINE 


#$0C 
EDEPTH 


KKKKKKEKKKKEKKKKKKKKKKKKEER 


SCORE LDA 
CMP 
BGE 
ASL 
ASL 
ASL 
TAX 
LDY 
JSR 
RTS 
C10 INC 
LDA 


SUM ;GET SCORE (0-9) 
#$0A ;GREATER THAN 9? 
C10 3IF YES, BRANCH 
31F NO, MULTIPLY BY 8 


#$13 3BYTE POSITION FOR FIRST DIGIT 
PRINT ;PRINT DIGIT 


COUNTER 3INC COUNTER (INITIALLY 0) 
COUNTER 


085 8is.cle s:s'slnin's'ein: psi cla epi bieiNie'g/e\6:e6 Wisis.eiela's sole: Seb a’clbjplalain a G's e'viaiwieisls slabs oulenmislee-e cle dlow oeicie'nn dutebieisieweeeweseoed Putting It All Together: The Game 


OA 
11 


535 CMP #$0A ;MORE THAN 9? 
536 BGE STOP1 ;IF YES, PRINT 100 AND STOP GAME 
537 ASL ;1F NO, MULTIPLY BY 8 
538 ASL 
539 ASL 
540 TAX 
541 LDY #$12 ;BYTE POSITION OF MIDDLE DIGIT 
64 542 JSR PRINT sPRINT DIGIT 
543 LDA #$00 ;ZERO SUM AND 
60 544 STA SUM RETURN TO PRINT 0 
64 545 JMP SCORE IN FIRST DIGIT POSITION 
546 STOP1 LDX #$08 ;PRINT 100 IN COUNTER 
547 LDY #$11 
64 548 JSR PRINT 
549 LDX #$00 
550 LDY #$12 
64 551 JSR PRINT 
552 LDY #$13 
64 553 JSR PRINT 
554 LDA #$01 ;SET ST TO INDICATE 
60 555 STA ST COUNTER=100 
556 RTS 
CO 557 STOP2 BIT $c000 ;ANY KEY PRESSED? 
558 BPL STOP2 ;IF NO, BRANCH BACK & WAIT 
559) FOR KEYSTROKE 
CO 560 BIT $C010 ;IF YES, CLEAR KEYBOARD STROBE 
60 561 JMP PGM AND START PROGRAM OVER 
562 RKKKKKKKKKKKKKKKKKKKKKKKKK 
64 563 PRINT LDA NSHAPE,X  ;RETRIEVE NUMBER SHAPE 
23 564 STA $23D0,Y ;LINE #$B8 (184) 
64 565 LDA NSHAPE+1,X 
27 +566 STA $27D0,Y ;LINE #$B9 (185) 
64 567 LDA NSHAPE+2,X 
2B 568 STA $2BD0,Y ;LINE #$BA (186) 
64 569 LDA NSHAPE+3,X 
2F 570 STA $2FD0,Y ;LINE #$BB (187) 
64 571 LDA NSHAPE+4,X 
33) 572 STA $33D0,Y ;LINE #$BC (188) 
64 573 LDA NSHAPE+5 ,X 
37 574 STA $37D0,Y ;LINE #$BD (189) 
64 575 LDA NSHAPE+6 ,X 
3B 576 STA $3BD0,Y ;LINE #$BE (190) 
64 577 LDA NSHAPE+7,X 
3F 578 STA $3FD0,Y ;LINE #$BF (191) 
a, KRKEKKKKKKKKKKEKKKKKKKKKKKKKKEE 
22 581 NSHAPE HEX 001C22222222221C ;NUMBER SHAPES - "0" 
22,22 1C 
OC 582 HEX 00080C080808081C ee 
08 08 1C 
22 583 HEX 001022201008043E re 
08 04 3E 
22 584 HEX 001C022201C20221C eon 
20 22 1C 
18 585 HEX 00101814123E1010 Saar 
3E 10 10 
02 586 HEX 003E021E2020201E 5" 
20 20 1E 
22 587 HEX 001€22021E22221C sO 
22 22 1C 
20 588 HEX 003E201008040404 a A 


207 


gS 


651D: 
6522: 
6525: 
652A: 
652D: 
6532: 
6535: 
653B: 
653E: 
6544: 
6547: 
654D: 
6550: 
6556: 
6559: 
655C: 
6562: 
6565: 
656B: 
656E: 
6574: 
6577: 
657D: 
6580: 
6583: 
6589: 
658C: 
6592: 
6595: 
659B: 
659E: 
65A4: 
65A7: 
65AA: 
65B0: 
65B3: 
65B9: 
65BC: 
65C2: 
65C5: 
65CB: 
65CE: 
65D1: 
65D7: 
65DA: 
65E0: 
65E3: 
65E9: 
65EC: 
65F2: 
65F5: 
65F8: 
65FE: 
6601: 
6607: 
660A: 
6610: 
6613: 
6619: 
661C: 
661F: 


MSHAPE1 
01 


MSHAPE2 
02 


MSHAPE3 
04 


MSHAPE4 
08 


MSHAPE5S 
11 


MSHAPE6 
23 


MSHAPE7 
47 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 


001C22221C22221C 
001022223C20221C 
000E01000E01000E01 
004401007F00601F00 
301F00181F00001F00 
001F00001800403100 


606000 
001C€02001C02001C02 


000803007E£01003E00 
003F00403F00003E00 


003E00003600003600 


006300 
003804003804003804 


001006007C03007C00 
007C00007E00007C00 
003800003800006C00 


004601 
007008007008007008 


00200C007807007801 
007801007801007801 
007000007000007000 


007000 
006011006011006011 


00401800700F 007003 
007003007803007003 
006001006001003003 


001806 
004023004023004023 


00003100601F 006007 
007007007807006007 
006007006006006006 


00300C 
00004700004 7000047 


POOP eee UU COU SOOOCCOCOCOCCCOCOOOCCOCOC COCO CCC OCC eee C Cee e reece reer eres ees 


ss " 
Hua 
;MAN SHAPE TABLES 
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6625: 
6628: 
662E: 
6631: 
6637: 
663A: 
6640: 
6643: 
6644: 
6645: 
6646: 
6647: 
6648: 
6649: 
664A: 
664D: 
664F: 
6652: 
6654: 
6657: 
665C: 
665F: 
6664: 
6667: 
666C: 
666F: 
6674: 
6677: 
667D: 
6680: 
6683: 
6686: 
668C: 
668F : 
6692: 
6695: 
669B: 
669E: 
66A1: 
66A4: 
66AA: 
66AD: 
66B0: 
66B3: 
66B9: 
66BC: 
66BF: 
66C2: 
66C8: 
66CB: 
66CE: 
66D1: 
6607: 
66DA: 


2659 bytes 


BSHAPE1 
BSHAPE2 
BSHAPE3 
BSHAPE4 
BSHAPE5S 
BSHAPE6 
BSHAPE7 
ESHAPE 


PSHAPE1 
00 


PSHAPE2 
00 


PSHAPE3 
00 


PSHAPE4 
01 


PSHAPE5S 
03 


PSHAPE6 
07 


PSHAPE7 
OF 


BYTETBL 
OFFSET 
HI 

LO 


HEX 


00006200403F00700F 
00580F 004COF00400F 


00400F 004000006018 


003030 
01 


40 
28221A2514 


205244320C 
383E7F7E7E3F3F1C 
18067COF7C3F7E3F 
7C7F7C3F7E3F 7F1F 
7EOF 7C1F700F 4003 
0200000600007E1F00 
7£37007E7F00 
0400000C00007C3F00 
7C6F007C7F01 
080000180000787F00 
785F01787F03 
100000300000707F01 
703F03707F07 
200000600000607F03 
607F06607FOF 
400000400100407F07 
407FOD407F1F 
000100000300007F OF 


007F 1B007F 3F 


sEXPLOSION SHAPES - NO. 1 


;BULLET SHAPES 


3NO. 2 


3NO. 3 
3NO. 4 


;PLANE SHAPES 


gS 
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Symbol table - numerical order: 


LOW =$1A HIGH =$1B MLINE =$6003 MLINEA =$6004 
BLINE =$6005 DEPTH =$6006 MHORIZ =$6007 BHORIZ =$6008 
HORIZB =$6009 HORIZM =$600A BULON =$600B XCOUNT =$600C 
DELAY =$600D BTEMP =$600E MTEMP =$600F ELINE  =$6036 
ELINEA =$6037 EDEPTH =$6038 SUM =$6039 COUNTER =$603A 
DE =$603B PCOUNTER=$603C PLINE  =$603D PLINEA =$603E 
PBYTE =$603F PDEPTH =$6040 PSHPNO =$6041 PTEMP  =$6042 
ST =$6051 MSHPADR =$6052 BSHPADR =$6060 PSHPADR =$606E 
PGM =$607C CLR1 =$6090 CLR =$6094 LN =$60B6 
PI =$60CB BI =$60CE PADDLE =$60D1 PSTART =$60D7 
PSTART1 =$60FA PSTART2 =$6102 BUL =$6114 BULLET1 =$612C 
BULLET =$6131 LONG =$6153 MINITIAL=$6156 BINITIAL=$6165 
SINITIAL=$6170 PR =$617B PINITIAL=$6184 PCONT  =$6196 
PLOADSHP=$61AA PLOADSHP 1=$61BB PDLE =$61C6 PDLE1 =$61DC 
LOAD =$61F6 MDRAW =$6201 MDRAW1 =$6206 PDRAW =$624B 
PDRAW1 =$6250 PXDRAW =$628F PXDRAW1 =$6294 LOADBUL =$62D9 
BDRAW =$62FC NOHIT  =$6318 COLLISION=$6320 LG =$6339 
BXDRAW =$633C EXPLODE =$6354 SOUND =$6397 SOUND1 =$6399 
DRAWE1 =$63A5 DRAWE2 =$63D4 INITE1 =$6411 INITE2 =$6425 
INITE3 =$6439 INITE4 =$644D SCORE  =$6461 C10 =$6472 
STOP1  =$648D STOP2  =$64A6 PRINT  =$64B1 NSHAPE =$64E2 
MSHAPE1 =$6532 MSHAPE2 =$6559 MSHAPE3 =$6580 MSHAPE4 =$65A7 
MSHAPES =$65CE MSHAPE6 =$65F5 MSHAPE7 =$661C BSHAPE1 =$6643 
BSHAPE2 =$6644 BSHAPE3 =$6645 BSHAPE4 =$6646 BSHAPE5 =$6647 
210 BSHAPE6 =$6648 BSHAPE7 =$6649 ESHAPE =$664A PSHAPE1 =$6674 
PSHAPE2 =$6683 PSHAPE3 =$6692 PSHAPE4 =$66A1 PSHAPE5S =$66B0 
w PSHAPE6 =$66BF PSHAPE7 =$66CE BYTETBL =$66DD OFFSET =$67E0 
HI =$68E3 LO =$69A3 SPEAKER =$C030 GRAPHICS=$C050 
MIXOFF =$C052 PAGE1  =$C054 HIRES =$C057 BUTTON =$C061 


PREAD =$FB1E WAIT =$FCA8 


PartTwo 


Advanced 
Techniques 


Drawing in Color 


A computer hack named Muller 
Redesigned a dull program for color, 
But bis technique was so bad 

The result was quite sad 

For even in color it was duller. 


(a of you who have your Apple hooked up to a color TV or monitor, 
consider yourself fortunate. There is hardly a game program, or any program for 
that matter, that uses hi-res graphics, that is not enhanced by a color display. In 
this chapter we'll look first at the mechanics of color production on the Apple 
and then see how to animate color shapes. We’ll also discuss special problems 
that arise when testing color shapes for collisions. In the last chapter, I'll make 
some specific suggestions about using color to enhance the game program. 


APPLE COLOR 


OOeeeU EUS SCSI) 


Apple advertises that the hi-res screen can display six colors, but two of 
these are black and white. Pretty sneaky, eh? There are in fact only four colors 
available and they are blue, green, violet, and orange. This is not a particular 
drawback since, as you would see by examining commercial games, quite a lot 
can be done with just these few colors. For example, one of the most popular 
Apple games, Flight Simulator II, uses violet for water, blue for sky, green for 
ground, orange and blue for instruments, and violet for runway lights in night- 
time simulation. This works so well that one hardly notices only four colors are 
used, and this is the rule rather than the exception. 

There are two principles involved in hi-res color production. One, if you 
don’t have a color TV or monitor, you won't see color. This point is of such 
fundamental importance you should make sure you understand it before going 
any further. Got it? OK. The second principle is that a color shape is produced by 
plotting in alternate bit positions, that is, in every other column—bits next to 
each other produce white. In fact, white is produced only by adjacent bits—a 
single isolated bit is always in one of the four colors. The particular color pro- 
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duced depends on which columns are used, odd or even, and whether the high 
bit is set. 

Let’s discuss these points in some detail. First, the high or most significant 
bit, which is the left most bit in a byte, is the bit, you will remember, that is not 
plotted on the screen. Up till now, we've always set the high bit to zero for all 
our shapes. If the high bit is set to 1, the shape doesn’t change, but the shape byte 
does. For example: 


HIGH BIT (BIT 7) NOT SET SHAPE ON SCREEN 
7&E AS 2 4] 1Paetea 
6.0 to 1 OY 1010100 (0) 
eas ceca ceil 

#$15 

214 

rod HIGH BIT (BIT 7) SET SHAPE ON SCREEN 
765.4 3°21 9 C2484 22 
10014010 4 104610 0 

#$95 


Thus, when the high bit is set, you use it to determine the hex value, 
remembering that the bit itself does not appear in the shape (actually, if you look 
carefully on a monochrome monitor, you'll see that dots plotted with a high bit 
set byte appear about one-half bit position over ). This is why #$80 is equivalent 
to #$00 in terms of the shape produced, which in this case is no shape, i.e., 
black. Similarly, #$7F and #$FF will both produce the same white line. Apple 
refers to these colors as White 1 and White 2 and Black 1 and Black 2 (now we 
have eight hi-res colors, right?). Ordinarily, one uses black and white with the 
high bit off to eliminate any problems with detecting collisions with colors that 
have the high bit set. 

As far as odd-even columns are concerned, we use the convention of num- 
bering the first screen bit position at the left of the screen as 0 or the start of the 
even columns, and the second position as 1 or the start of the odd columns. 

The four hi-res colors are produced by the following combinations: 


Pee meee eee eee eee ee eee eee eee eee E EEE EET EEE EEEEEE EEE EEEEE EES EE SESS HEE E SETHE EEE HEHE EEE EEE SEES EE EE EEE SEES ES 


Even columns—high bit not set—violet 
high bit set—blue 


Odd columns—high bit not set—green 
high bit set—orange 


Example 
Shape on screen High bit not set High bit set 
1070104 #$55 Violet #$D5 Blue 
01.0 1.0150 #$2A Green #$AA Orange 


It should be emphasized that the odd-even column assignments always refer 
to the leftmost screen byte (byte 0). Thus if 1010101 is plotted in screen byte 1, 
the color will be green or orange, not violet or blue. That’s all there is to it, but 
before we go on to the animation routines, there are two points we must men- 
tion. First, because we’re plotting shapes as whole bytes, certain color combina- 
tions are not allowed. Any contiguous line cannot contain both violet and blue 
or green and orange because either the high bit is on or it isn’t for the particular 
shape byte. Second, because we’re plotting in alternate columns, the 280 dot 
horizontal resolution of the hi-res screen is reduced by half to 140 dots (the 
vertical resolution is not affected). This is not as bad as it seems because drawing 
shapes in different colors often produces an illusion of greater resolution than 
there really is because of the color contrasts. However, on a black and white 
monitor or TV, the loss of resolution is readily apparent as color shapes appear 
to be composed of dotted lines. 


COLOR ANIMATION 


Ome meee enero eee eee eee eeeeeeeeeeee esse eeeeeeees 


The major problem in animating color shapes is maintaining the color 
throughout the screen range (you don’t have to do this, but if you don’t the 
result is mighty strange). This is not a problem for vertical animation because 
the shape bits always maintain their even or odd column assignments. The prob- 
lem arises, as you might expect, only when dealing with movement that involves 
a horizontal vector; here, moving a shape in 1-bit moves would result in the bits 
occupying the wrong columns every other move. Fortunately, the solution to this 
problem is easy—we simply move the shape 2-bit positions at a time rather than 
1; in this way the correct column assignments are always retained. Before we go 
on to discuss the details, it should be mentioned that 2-bit moves are also often 
useful for animating non-color shapes if we want, for example, to speed up the 
animation. The increase in jumpiness that results is generally acceptable. There- 
fore, the discussion that follows is applicable for both color and black and white 
animation. 

In the next program (Program 11-1) we’re going to move a blue plane shape 
continuously across the screen at the same horizontal line position. The plane 
shape tables and shape bytes are as follows: 


Drawing in Color 
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Blue Plane 
Shape 
Number 241124 124 
BNR e Rs 
PRD 
0 ae BeRees 
ee Fe Ee cle 
le} Ti TT Tit | 
Ll |] 2 
: H+ ma aa 
BEEEREHEH 
HOSE Ene 
SGV 90 
Base eane DO 
2 CS SERRE DO 
le] je; | | ++ DO 
jo] je; je] | tT | DO 
SAGAR ER co 
hoe ae ee | co 
3 OB OB BEBE Co 
jo] je] jel | TT CoO 
lo] [eo] fe] fe} | | Co 
£0 SR SaaS 80 82 80 80 
216 At chases e 80 8A 80 80 
4 je] jo] je! | | 80 AA 85 80 
4 fe! je! le! jel |] 80 AA 95 80 
je! je] je] je! le 80 AA D5 80 
SSSR eee 80 88 80 80 
Oa sae 80 A8 80 80 
5 He | |e HeD 80 A8 95 80 
le] je! |e |e! 80 A8 D5 80 
je] | e| [oe] |e 80 A8 D5 82 
Om Bae AO 80 80 
|e! | as AO 81 80 
6 Om Om AO D5 80 
On je] | AO D5 82 
je! | je] | AO D5 8A 
There are several things that should be noted about these shape tables. 
Because we want the plane to be blue, the dots are plotted in the even columns 
only and the shape bytes represent the fact that the high bit is set. Also, note that 
although the shape itself is 2-screen-bytes wide, the shape table is 4-bytes wide 
to accommodate all seven shapes. Thus, a general principle—when moving a 
shape horizontally 2-bit positions at a time, two extra screen bytes in the direc- 
tion of movement must be included in the shape tables instead of the one extra 
that we use for 1-bit moves. This necessitates a change in our usual drawing 
routine. In the MAIN PROGRAM of Program 11-1, when we've finished with all 
seven shapes, we increment the screen byte by 2 (lines 68 and 69) so that the 
next draw starts in the appropriate position. We can see this clearly in the shape 
diagrams above. If shape 0 is drawn in screen byte 0, the next shape 0 must be 
drawn in screen byte 2 and so on. 
That’s really all there is. The rest of the program needs no further 
explanation—we’ve seen it all before. 


POOR Oe eee meee eee HEHE EEE EEE EEE EEE EE EEEEEH SHEESH ESTEE EEO E EEE HEE EE HEHE SHEESH SHEE EE EEE EE EEE EEE EEE HEE SEEDED 


LOAD SHAPE ADDRESSES 
INTO SHPADR 


DISPLAY AND CLEAR SCREEN 


SET INITIAL LINE NUMBER, BYTE 
POSITION AND DEPTH 


FIRST SHAPE 
LOAD INTO TEMP 


NEXT SHAPE 
ALL 7 SHAPES? 


MOVE TWO SCREEN BYTES 


END OF SCREEN? 


JPROGRAM 11-1 


: ASM 


6000: 4C 2C 60 


1 *1 SHAPE HORIZONTAL*COLOR - BLUE 
2 *2 BYTES WIDE, 5 LINES DEEP 

3 ORG $6000 

4 JMP PGM 

5 LINE DS: « 

6 LINEA DS 

7 BYTE DS:* 

8 DEPTH DS 1 

9 XCOUNT DS 1 

10  SHPNO DS 1 


11 DELAY DS 1 


12 ~=TEMP DS 20 
13. GRAPHICS = $C050 
14 MIXOFF = $C052 
15 HIRES = $C057 
16 PAGE] = $C054 
17. ~~ HIGH = $1B 
18  ~LOW = $1A 


Drawing in Color 
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6056: 
6059: 
605B: 
605E: 
6061: 
6064: 
6067: 
606A: 
606D: 
6070: 
6073: 
6075: 
6077: 
607A: 
607D: 
6080: 
6082: 
6084: 


6087: 
6089: 
608C: 
608F : 
6092: 


601E: 
601F: 
6020: 
6021: 
6022: 
6023: 
6024: 
6025: 
6026: 
6027: 
6028: 
6029: 
602A: 
602B: 
602C: 
602F : 
6032: 
6035: 
6038: 
603A: 
603C: 
603E: 
6040: 
6042: 
6044: 
6046: 
6047: 
6049: 
604B: 
604D: 
604F: 
6051: 
6053: 


co 
co 
co 
co 


60 
60 


WAIT = — $FCA8 
*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
*CONTINUE FOR ALL 7 SHAPES 
SHPADR DFB  #<SHAPE1 
DFB  #>SHAPE1 
DFB  #<SHAPE2 
DFB  #>SHAPE2 
DFB  #<SHAPE3 
DFB  #>SHAPE3 
DFB  #<SHAPE4 
DFB  #>SHAPE4 
DFB  #<SHAPES 
DFB  #>SHAPES 
DFB  #<SHAPE6 
DFB  #>SHAPE6 
DFB  #<SHAPE7 
DFB  #>SHAPE7 
PGM LDA GRAPHICS  ;HIRES,P.1 
LDA MIXOFF 
LDA HIRES 
LDA PAGE1 
LDA #$00 ;CLEAR SCREEN 1 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY ¥#$00 
LDA #$00 
CLR STA (LOW),Y 
INY 
BNE CLR 
INC HIGH 
LDA HIGH 
CMP #$40 
BLT CLR1 
LDA #$60 ;LOAD DELAY 
STA DELAY 
kkk kKk KKK MAIN PROGRAM kkkk kkk kK 
START JSR INITIAL — ;SET INITIAL BYTE, LINE, DEPTH 
START1 LDA #$00 FIRST SHAPE NUMBER 


STA SHPNO 

START2 JSR  LOADSHP ;LOAD SHAPE INTO TEMP 
JSR DRAW ;DRAW 
LDA DELAY ;DELAY 
JSR WAIT 
JSR DRAW ;ERASE 
INC SHPNO ;NEXT SHAPE NUMBER 
LDA SHPNO 
CMP #$07 3FINISHED ALL 7 SHAPES? 
BLT START2 31F NO, CONTINUE WITH NEXT SHAPE 
INC BYTE ;1F YES, MOVE TWO BYTES 
INC BYTE 
LDA BYTE 
CMP #$26 3END OF SCREEN? 
BLT START1 31F NO, CONTINUE DRAW 
JUMP START 31F YES, START OVER 


KkKKKKKKKK SUBROUT INES *****ee eR 


INITIAL LDA #$00 
STA BYTE 
STA LINE 
STA LINEA 
CLC 


wie ln: idtebiele'sie nib besa Wieeie 6 S66 18:65 7:6,pleiw.01Wie. entero Ul0in bb's Slalo%e olbloi ain 'nle 06's ool ielb's claw tara.eld Gislarere alnSieleinleiele oie ste Salpielelelas’s sloeeiciee sine eee Drawing in Color 


6093: 69 05 80 ADC #$05 DEPTH OF SHAPE 
6095: 8D 06 60 81 STA DEPTH 
6098: 60 82 RTS 

83 KkKKKKK KKK KKK KKK KKKKEK 
6099: AD 08 60 84 LOADSHP LDA SHPNO ;LOAD SHAPE INTO TEMP 
609C: OA 85 ASL 
609D: AA 86 TAX 
609E: BD 1E 60 87 LDA SHPADR,X 
60A1: 85 1A 88 STA LOW 
60A3: BD 1F 60 89 LDA SHPADR+1,X 
60A6: 85 1B 90 STA HIGH 
60A8: AO 00 91 LDY #$00 
60AA: Bl 1A 92  LOADSHP1 LDA (LOW),Y 
60AC: 99 0A 60 93 STA TEMP,Y 
60AF: C8 94 INY 
60B0: CO 14 95 cPY #$14 
60B2: 90 F6 96 BLT LOADSHP1 
60B4: 60 97 RTS 

98 kkk kK KKKK KKK KKK 
60B5: A9 00 99 DRAW LDA #$00 
60B7: 8D 07 60 100 STA XCOUNT 
60BA: AC 05 60 101 DRAW1 LDY BYTE 
60BD: AE 03 60 102 LDX LINE 
60CO: BD 96 61 103 LDA HI,Xx 
60C3: 85 1B 104 STA HIGH 
60C5: BD 56 62 105 LDA LO,X 
60C8: 85 1A 106 STA LOW 219 
60CA: AE 07 60 107 LDX XCOUNT # 
60CD: Bl 1A 108 LDA (LOW),Y 
60CF: 5D 0A 60 109 EOR TEMP,X 
60D2: 91 1A 110 STA (LOW),Y 
60D4: C8 111 INY 
60D5: Bl 1A 112 LDA (LOW),Y 
6007: 5D 0B 60 113 EOR TEMP+1,x 
60DA: 91 1A 114 STA (LOW),Y 
60DC: C8 115 INY 
60DD: Bl 1A 116 LDA (LOW),Y 
60DF: 5D OC 60 117 EOR TEMP+2,X 
60E2: 91 1A 118 STA (LOW),Y 
60E4: C8 119 INY 
60E5: Bl 1A 120 LDA (LOW),Y 
60E7: 5D OD 60 121 EOR TEMP+3,X 
60EA: 91 1A 122 STA (LOW),Y 
60EC: EE 07 60 123 INC XCOUNT 
60EF: EE 07 60 124 INC XCOUNT 
60F2: EE 07 60 125 INC XCOUNT 
60F5: EE 07 60 126 INC XCOUNT 
60F8: EE 03 60 127 INC LINE 
60FB: AD 03 60 128 LDA LINE 
60FE: CD 06 60 129 CMP DEPTH 
6101: 90 B7 130 BLT DRAW1 
6103: AD 04 60 131 LDA LINEA 
6106: 8D 03 60 132 STA LINE sRESET LINE FOR NEXT CYCLE 
6109: 60 133 RTS 


610A: 81 80 80 134 SHAPE1 HEX 8180808085808080D582 ;SHAPE TABLES 
610D: 80 85 80 80 80 D5 82 

6114: 80 80 D5 135 HEX 8080D58A8080D5AA8080 

6117: 8A 80 80 D5 AA 80 80 

611E: 84 80 80 136 SHAPE2 HEX 8480808094808080D48A 

6121: 80 94 80 80 80 D4 8A 

6128: 80 80 D4 137 HEX 8080D4AA8080D4AA8180 


a en ee eee Ee ee 


ES 
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612B: AA 80 80 D4 AA 81 80 
6132: 90 80 80 138 SHAPE3 HEX 90808080D0808080D0AA 
6135: 80 DO 80 80 80 DO AA 
613C: 80 80 DO 139 HEX 8080D0AA8180D0AA8580 
613F: AA 81 80 DO AA 85 80 
6146: CO 80 80 140 SHAPE4 HEX C0808080C0828080C0AA 
6149: 80 CO 82 80 80 CO AA 
6150: 81 80 CO 141 HEX 8180COAA8580C0AA9580 
6153: AA 85 80 CO AA 95 80 
615A: 80 82 80 142 SHAPES HEX 80828080808A808080AA 
615D: 80 80 8A 80 80 80 AA 
6164: 85 80 80 143 HEX 858080AA958080AAD580 
6167: AA 95 80 80 AA D5 80 
616E: 80 88 80 144 SHAPE6 HEX 8088808080A8808080A8 
6171: 80 80 A8 80 80 80 A8 
6178: 95 80 80 145 HEX 958080A8D58080A8D582 
617B: A8 D5 80 80 A8 D5 82 
6182: 80 AO 80 146 SHAPE7 HEX 80A0808080A0818080A0 
6185: 80 80 AO 81 80 80 AO 
618C: D5 80 80 147 HEX D58080A0D58280A0D58A 
618F: AO N5 82 80 AO D5 8A 
HI 
LO 


790 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B LINE =$6003 LINEA  =$6004 
BYTE =$6005 DEPTH =$6006 XCOUNT =$6007 SHPNO =$6008 
DELAY =$6009 TEMP =$600A SHPADR =$601E PGM =$602C 
CLR1 =$6040 CLR =$6044 START  =$6056 START1 =$6059 
START2 =$605E INITIAL =$6087 LOADSHP =$6099 LOADSHP 1=$60AA 
DRAW =$60B5 DRAW1 =$60BA SHAPE1 =$610A SHAPE2 =$611E 
SHAPE3 =$6132 SHAPE4 =$6146 SHAPE5 =$615A SHAPE6 =$616E 
SHAPE7 =$6182 HI =$6196 LO =$6256 GRAPHICS=$C050 
MIXOFF =$C052 PAGE1 =$C054 HIRES =$C057 WAIT =$FCA8 


Without changing anything in Program 11-1 except the shape bytes, we can 
draw the plane in any of the other three hi-res colors. Shown on the opposite 
page are the shapes and shape bytes for shape 0 for the plane in green, violet, 
and orange. 

Shapes with multiple colors can be drawn quite easily, remembering though 
that a single byte can’t contain two colors, one of which requires the high bit set 
and the other the high bit not set. This precludes a line in a shape within a single 
screen byte containing both violet and blue or green and orange. The line can, 
however, contain combinations of violet and green or blue and orange and, of 
course, different lines in the shape can contain any of the four colors. In addi- 
tion, black and white can be placed anywhere. Note however that when combin- 
ing colors, if two bits end up next to each other, white will be displayed in that 
region. The use of multiple colors, and the contrast they provide, goes a long 
way in mitigating the lower resolution of color displays. 
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00 OO OO 
00 OO OO 
Green 05 OO 00 
15 00 00 
15 00 00 
00 OO 00 
00 OO OO 
Violet 02 OO 00 
OA OO O00 
2A 00 00 
80 80 80 
80 80 80 
Orange 85 80 80 
Sooeecceae AA 95 80 80 
[| [|| AA D5 80 80 
Simple, yes? But of course for the ane of drawing in color, there’s a 


price to be paid, and I don’t mean the cost of a color TV or monitor (actually, I 
don’t know why this should be so but it seems to be a law of some kind— 
something about a free lunch?). In any case, we’ve already discussed one draw- 
back, the lower resolution of color shapes. There is yet another that involves 
problems in collision detection and we'll get to that next. 
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Collision detection with color shapes is difficult for two reasons; first, 
because such shapes contain “holes,” and second, because of a problem relating 
to the high bit. Let’s discuss the “hole” problem first. 

Suppose we want to test for the collision of a vertically moving green shape 
with a violet one: 


76 5'4 3).2 10 Shape on screen 


eee eee eeeeeeeeeeeees 


Shape 1—violet 0707.01.01 1:0: 10-30 
AND with shape 2—green 00101010 0101010 
Result 00000000 


The AND instruction returns a value of #$00 indicating no collision, but, of 
course, a collision should occur. The same situation holds for collisions between 
violet and orange shapes and between green and blue shapes, because they also 
occupy different columns. This is not a problem for violet and blue or green and 
orange shapes because here they occupy the same columns (on the other hand, 
blue and orange shapes will always indicate a collision, even when there 
shouldn’t be one, because of the high bit problem we'll get to shortly). The same 
“hole” problem arises with horizontal movement, because color shapes are 
moved horizontally two bits at a time to maintain the alternate column assign- 
ments. We could get around the problem by changing colors, but this would 
limit our program options and also violate a basic creed of us assembly language 
programmers, to wit, “#$FF,” or “Flexibility Forever,” which translated means if 
we can overcome a limitation, let’s do it. 
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When dealing with bits in the “wrong” set of alternate columns, the instruc- 
tions that immediately come to mind are those that shift bits over one position; 
e.g., ASL (Arithmetic Shift Left), LSR (Logical Shift Right), ROR (ROtate Right), 
and ROL (ROtate Left). 


ASL % 65.4 3 2 1:0 


=_ 
—. 


Cc 
LSR 7 6.5 43.2% 0 
“o” C 
ROL 765 432 1.0 
C 
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e ROR 76S 4-32 1.0 
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When we do this kind of shifting, we have to make sure we can restore the 
original shape and color in preparation for the next shape draw and erase. This is 
done by storing the shape byte to be tested in the Accumulator, shifting the bits, 
and then storing the shifted byte into a memory location labeled, let’s say, SHIFT 
(another clever nom de storage ). Thus, the shape byte in the shape table is not 
affected by the shifting. The AND test is then done with the contents of SHIFT 
and the draw and erase with the shape byte from the shape table. 

The instruction we’re going to use is LSR because it’s the only one that 
ensures the high bit will contain 0 after the shift—pushing a 1 into the high bit 
can present problems as we'll see below. Now suppose we want to collision-test 
a violet with a green shape as in the example in the beginning of this section. 
Let’s see what happens if we LSR the violet shape before ANDing with the green 
shape: 


76543210 


Shape 1—violet O10 1)'0: 1:04 
LSR 00101010 
AND with shape 2—green 00101010 


Result—non-zero 0017101010 
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Voila! We’ve detected a collision where there should be one. Let’s see how 
this would look in a program (again, CMP #$00 is included to make the routine 
easier to read—it is not needed before a BEQ): 


LDA SHAPE,X 
LSR 

STA SHIFT 
LDA (LOW),Y 
AND SHIFT 
CMP #$00 

BEQ NOHIT 
JMP COLLISION 


bits are 1. Consider the following: 


Shape 1—orange 
AND with shape 2—blue 


Result—non-zero 


;GET SHAPE BYTE TO BE TESTED 
;SHIFT BITS RIGHT 

;STORE IN SHIFT 

;GET SCREEN BYTE 

;AND WITH SHIFT CONTENTS 


;JUMP TO NOHIT IF NO COLLISION 


NOHIT Continue draw with SHAPE,X 


Note that some assemblers require A in the operand column for LSR (and 
ASL, ROR, and ROL) when the bits in the Accumulator are to be shifted. The 
exact same procedure can be used for testing violet against orange and green 
against blue. When we get to blue vs. orange, however, we have a problem, 
because both colors have the high bit set and thus an AND test will always return 
a non-zero even when no collision is indicated. This occurs because both high 


765 43:21 0 Shape on screen 
10-00: 1'0'9'0 0 
11500090500 


10000000 


Obviously a collision should not be detected, but it is because of the high 
bits. We might assume an LSR instruction would take care of this, because it 


places a zero in the high bit; but watch what happens: 


Shape 1—orange 
LSR 


Result—non-zero 


AND with shape 2—blue 


765 4:32-1:00 
10001010 
0: 1:0:.0.0.7.0'4 
11000000 


01000000 


The high bit has been shifted into the shape byte and, in this case at least, an 
erroneous collision detection has occurred. What we want to do then is mask 
out the high bit before shifting. We do this by ANDing with #$7F. Thus: 


Drawing in Color 
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76543210 


Shape 1—orange 1 
AND with #$7F 0 


Result—high bit 0 00001010 
LSR 0 '0°0'0::0 1:01 
AND with shape 2—blue 11000000 


Result—zero 00000000 


In a program, the routine would look like this: 


LDA SHAPE,X 
AND #$7F 
LSR 

STA SHIFT 
LDA (LOW),Y 
AND SHIFT 
CMP #$00 
BEQ NOHIT 
etc. 


Even when testing blue or orange against a high-bit-not-set color, such as 
violet or green, it’s still a good idea to mask out the high bit so that it doesn’t get 
pushed into the shape byte. To summarize then: 


Color to be tested (ANDed ) Target color Shift instructions 
violet blue none 
green orange none 
blue violet none 
orange green none 
green violet or blue LSR 
violet green or orange LSR 
blue green or orange AND #$7F, LSR 
orange violet or blue AND #$7F, LSR 
white (high bit off) any color none 
any color white (high bit off) none 


This is a fast and simple procedure, but not without its drawbacks. Because 
we're shifting the shape bits, in certain circumstances a collision detection will 
result when the shapes are not exactly at the collision site. For shapes moving 
vertically, this displacement will not exceed one bit position and this should 
certainly be tolerable in most circumstances. For shapes moving horizontally, the 
displacement can be as large as three bit positions, because the protocol is 
draw-erase-move two bit positions-LSR-AND test. We can reduce the displace- 
ment to one bit position by altering the protocol to the following; move two bit 
positions-draw-LSR-AND test-erase. But as mentioned, this displaced collision is 
not a problem in all cases—it depends on the shapes and which way they’re 
moving. 

A second method of collision detection with color shapes is one that seems 
to be favored by assembly language programmers, probably because the principle 
is simple and it works; there is also no problem with displaced collisions. The 
method involves setting up a second dummy shape table, identical to the first, 
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except that the shape is drawn in white (high bit off), i.e., no “holes.” The white 
shape is ANDed with the screen byte, and the color shape is used to draw and 
erase. For example, if the color shape is stored in SHAPE and the white shape in 
SHAPE 1, the routine would be as follows: 


LDA (LOW),Y 
AND SHAPE1,X 
CMP #$00 
BEQ NOHIT 
JMP COLLISION 
NOHIT Continue draw with SHAPE,X 


This method works for any color combination and eliminates the problem of 
the high bit. An obvious drawback, however, is that multiple shape tables have to 
be constructed for each shape involved in collision detection. This can eat up a 
lot of space for programs with many colliding shapes, not to mention the time 
involved in writing the program. There can also be a significant increase in 
execution time, depending on the type of animation involved. For vertical 
animation, this is not a significant problem—a single shape would have only two 
shape tables, one in color and the other in white, and the routine described 
above can be used without any modification. For horizontal movement, however, 
each shape would require 14 shape tables instead of 7, and if we use our usual 
TEMP loading routine, we would have to load another TEMP with the white 
shapes for each AND test. This could increase the execution time to intolerable 225 
levels and if so, we would then have to use routines that do not involve TEMP & 
loading; that is, a separate draw routine for each shape as discussed in Chapter 5 
(Program 5-2). This would further increase our program size, but then you can’t 
have everything. 

There is yet a third method we can use, which is both simple and fast, but 
has the limitation that the shape has to be all one color. What we do is use a 
single white shape table and then mask the shape to color. For example: 


76543210 


1 


White shape 0.17 
0101 


00 00 
AND with #$55 01 01 


Result—violet shape 00010100 


A program using this routine would look like this: 


LDA (LOW),Y 

AND WHITE SHAPE 

CMP #$00 

BEQ NOHIT 

JMP COLLISION 
NOHIT LDA WHITE SHAPE 

AND #$55 

STA COLOR SHAPE 

LDA (LOW),Y 

EOR COLOR SHAPE 


ce ee et pn al 
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For a green shape, we would AND with #$2A, for orange with #$AA, and for 
blue with #$D5. This routine requires only one (white) shape table, but 
obviously can be used only with shapes of a single color, because each color 
requires a different value to be ANDed. The only exception would be if we are 
testing a vertically moving shape and expect no side collision. Here, only the top 
or bottom line (white shape) need be collision-tested and then, if no collision, 
the whole color shape can be drawn with a separate routine. 

Which to use, LSR or white dummy shapes? That depends on the program 
and your own proclivities. Use whichever is easier and more appropriate. On the 
other hand, we could observe another assembly language credo, “#$EB,” or “Easy 
is Better’—just change the shape colors to those that don’t involve alternate 
columns. 

Finally, let’s discuss the game program for a moment. Suppose we draw the 
plane in blue. The bullet is a single dot and thus is either violet or green depend- 
ing on the column in which it is drawn. Thus, half the time a collision will be 
missed, i.e., when the bullet is tested against a “hole” in the plane shape. Note 
that this is a special situation—ordinarily shapes are not just single dots. What to 
do? An LSR would be inappropriate—we would still miss collisions the other half 
of the time and if the shape byte were #$01, an LSR would empty the shape byte 
entirely. We could use a white dummy table—here the bullet would be 2-bits 
wide—but instead of going through all that trouble, why not just draw the bullet 
as a 2-bit wide white shape to begin with? Why not indeed. It works and looks 
fine—what more could we ask for? 
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Double Hi-Res 
Graphics and Animation 


A computer artist from Lahore 

Has only one problem; he can’t draw. 
Hi-res double 

Gives him nothing but trouble, 

Now he’s twice as bad as before. 


Des of you with Apple IIc’s or extended memory Apple Ile’s have pro- 
bably sat up many a night wondering what to do with the extra memory these 
machines contain. You can’t use it for your BASIC programs (it can be done but 
Apple won't tell you how) and only some commercial programs take advantage 
of it. But we’re assembly language programmers and no part of Apple memory is 
inaccessible to us. In this chapter, we'll see how to use the extra memory to 
display and animate graphics in the double hi-res mode, both in color and black 
and white. 


DOUBLE HI-RES— WHAT IT IS AND WHAT’S REQUIRED 
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Not all Apples are capable of displaying double hi-res graphics—at the very 
least a minimum of 128K of memory is required. Apple IIc’s come with 128K 
standard. Apple Ile’s can be upgraded to 128K by adding an extended memory 
80-column card (available from Apple and other companies) but double hi-res 
graphics also require that you have a revision B or later motherboard. You can 
tell what revision your motherboard is by checking the part number at the rear 
of the main circuit board. If the letter following the numbers is B, you’re all set. 
If it is A, you have a revision A motherboard and double hi-res will not work. But 
don’t despair—your Apple dealer will sell you a B motherboard at a price you 
can’t refuse; all you have to do is learn how to program with one hand. 

Another requirement, but one that is not absolutely essential, is a video 
monitor rather than a TV. You can use a black and white or color TV, but much 
detail will be lost, thus negating the increase in resolution and the details of 
color contrasts. You don’t have to spend a lot of money for fancy monitors—I 
find the standard Apple monochrome monitor superb for double hi-res displays 
and even an inexpensive color monitor produces satisfactory results. 
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Double hi-res extends the horizontal resolution of the hi-res screen from 
280 to 560 dots on a monochrome monitor—the vertical resolution remains the 
same at 192 lines. The 560 by 192 screen makes the Apple with double hi-res 
roughly equivalent to the hi-res mode on the IBM PC (600 by 200) and, as you 
might imagine, this increase in resolution can produce startlingly detailed gra- 
phics that make single hi-res appear rather crude. With color, the horizontal 
resolution is the same as single hi-res (140 dots), but with many more colors 
available and without the single hi-res color mixture limitations. 


THE DOUBLE HI-RES SCREEN 


POO meee e meee eee reese eee eee eee eee ee eee eeEeeeee 


The extra 64K of memory in 128K machines is essentially a mirror of the 
standard 64K memory block; that is, there are two of everything, including the 
hi-res screens. Let’s label a hi-res screen from the standard memory as MAIN and 
the screen from the extra memory as AUX, for auxiliary. Each screen uses the 
same addresses; i.e., $2000 is the first screen byte position for hi-res Page 1 for 
both MAIN and AUX. For this reason, you have to specify which memory you're 
using before sending shape bytes to a hi-res screen location. Now remember that 
in single hi-res, 7 bits from a shape byte are plotted in a single screen byte. Thus, 
a shape byte sent to $2000 will be displayed in the first screen byte of hi-res Page 
1. In double hi-res, each screen byte displays 7 bits from a shape byte from AUX 
and 7 bits from a shape byte from MAIN, the shape from AUX displayed in the 
first half of the screen byte. Thus, a shape byte sent to $2000 in AUX will be 
displayed in the first half of the first screen byte of Page 1 (byte 0) and a shape 
byte sent to $2000 in MAIN will be displayed in the second half (assuming, of 
course, that the double hi-res mode is selected ). 


SINGLE HI-RES $2000 One 18 08 WhO, <a a 


DOUBLE HI-RES 
$2000 AUX OO et Oe 1, Oo et Os OSI 1 OL 


SCREEN BYTE 0 


Similarly, a shape byte sent to $2001 in AUX will be displayed in the first half 
of screen byte 1, and a shape byte sent to $2001 in MAIN will be displayed in the 
second half of screen byte 1, and so on. There are still just 40 screen bytes, but 
each can display up to 14 dots, which accounts for the 560 dot resolution (14 X 
40 = 560). All that needs to be done is to specify AUX or MAIN before sending 
the shape byte to the particular hi-res screen address—the double hi-res mode 


FORO e eee meee seen ease eee eee eee eee eee Eee esses see sees eEesseeeetsseeeesssessese 


$2000 MAIN 
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takes care of the plotting. Note that, as in single hi-res, the high bit does not 
appear in the shape. Not only that, but in double hi-res the high bit has nothing 
to do with color selection as we'll see in a later section. 


THE DOUBLE HI-RES MODE 
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Strange as it may seem, you cannot draw in double hi-res unless you first set 
the double hi-res mode. The way to do this is buried deep within the Apple 
reference manual and if you’re fond of frustration, you’re welcome to try to dig it 
out, but why not just read on? The method, as you might suspect, involves 
accessing certain soft switches, some of which you've seen before. 


Label Address Access Function 

GRAPHICS $C050 LDA Turns on graphics mode 

MIXOFF $C052 LDA Selects full page graphics 

HIRES $C057 LDA Selects hi-res mode 

AN3 $CO5E LDA Turns off annunciator 3 

COL80 $COOD STA Selects 80 column mode 

STORE80 $C001 STA Changes functions of next switches 

AUX $C055 LDA Selects AUX when STORE80 and HIRES on 
MAIN $C054 LDA Selects MAIN 


The routine for selecting double hi-res is as follows: 


LDA GRAPHICS 
LDA MIXOFF 
LDA HIRES 
STA STORE80 
STA COL80 
LDA AN3 


Once this is done, LDA AUX selects the Page 1 hi-res screen from the auxiliary 
memory and LDA MAIN selects the same page from main memory. Thus, to clear 
both screens, we do: 


LDA MAIN 
JSR CLEAR 
LDA AUX 
JSR CLEAR 


where CLEAR is our usual clear screen subroutine. It’s simple when you know 
which switch to pull (push?), thus attesting to the old adage (which I just 
thought of) that computers imitate life. 


DRAWING SHAPES 
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Drawing a shape on the double hi-res screen is relatively easy—all we have to do 
is determine in which half of the screen byte, AUX or MAIN, the shape bits are to 
be plotted and modify the draw routine accordingly. For example, let’s look at 


Double Hi-Res Graphics and Animation 


Bs 


Hi-Res Graphics and Animation Using Assembly Language pa aioe seed eos sielslaias seniaaagineinccias'siceseSwacgewseasasl edecauulesb adele er canecSecres 


how we would plot some simple shapes of varying lengths. To keep it really 
simple, we'll just plot some lines. For most of the programs in this chapter we'll 
be using single lines to illustrate the principles involved; however, the programs 
are designed in the usual way (i.e., XCOUNT, DEPTH, etc.) to allow the drawing 
of shapes with multiple lines, so our examples are applicable not just to lines, 
but to any shape. 
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AUX MAIN 
Ot A 1 700: || 020/070-0050 


Here we're plotting shape byte #$1E just in the AUX portion of the screen 
byte. The draw routine would look like this (we’re using the EOR method for 
illustration ): 


LDA AUX 
LDA Screen byte 
EOR #$1E 
STA Screen byte 


Suppose now we want to draw a line extending into the MAIN section: 
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AUX MAIN 
O°0070 0 1 1 [eet Or. 8:0. 


The draw routine would then be: 


LDA AUX 

LDA Screen byte 

EOR #$70 

STA Screen byte 

LDA MAIN 

LDA Screen byte ;SAME SCREEN BYTE 
EOR #$07 

STA Screen byte 


Now let’s extend a line into the next screen byte: 


Screen byte 12 Screen byte 13 
AUX MAIN AUX 
0.020501 ye | hel a aha! 1: sO! 0"0F" 0 
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The draw routine would be: 


LDA AUX 

LDA Screen byte 
EOR #$70 

STA Screen byte 
LDA MAIN 

LDA Screen byte 
EOR #$7F 

STA Screen byte 
INY ;NEXT SCREEN BYTE 
LDA AUX 

LDA Screen byte 
EOR #$03 

STA Screen byte 


Note that we use INY to get to the next screen byte, because this is how we have 
always done it in our programs: Y is loaded with the value in BYTE and it is 
manipulated to access different screen bytes within the draw routine instead of 
BYTE itself to make erasing easier. 

We can use a kind of shorthand to describe our double hi-res drawing rou- 
tines. Thus, for the example above, A-M-INY-A. The same line starting in the 
MAIN section would use M-INY-A-M. A line extending over two whole screen 231 
bytes and starting in AUX would use A-M-INY-A-M, and so on. For a shape with 
multiple lines, we simply plot out the shape and design the draw routine based a) 
on the overall maximum shape width. 

Now that we know how to display shapes on the double hi-res screen, let’s 
see how to animate them. 


ANIMATING SHAPES 


Vertical animation, as usual, presents no problems. We just draw and erase 
the shape and change line positions; the shape bits always retain their column 
assignments. Non-vertical movement always contains a horizontal vector, and 
here things get more complicated, but not much more than with single hi-res 
horizontal movement. First of all, for greater simplicity, all our double hi-res 
horizontal animation will use 2-bit moves. One-bit moves are possible but 
involve greater complexity (14 shapes are required with different draw routines 
for each group of 7), and they are completely unnecessary because a 2-bit move 
in double hi-res is equivalent to a 1-bit move in single hi-res and this is certainly 
satisfactory. 

With 2-bit moves, we need only 7 shapes. The technique is to examine the 
shape tables and devise the appropriate draw routine. Most everything else is the 
same as in our previous single hi-res programs. Let’s consider the simplest exam- 
ple, a line occupying only half a screen byte and starting in the AUX section. 
Shown below are the shape tables for this line moving in 2-bit moves. ( Note that 
as usual with 2-bit moves, 2 extra bytes have to be included in the shape tables 
in the direction of movement, but here the extra bytes are really half screen 
bytes, i.e., either a MAIN or AUX.) 


00 8600 
00 8600 
03 00 
OF 00 
3C 00 
7O Ol 
40 07 


Examination of the tables tells us the draw routine needed is A-M-INY-A. The 
tables also tell us that after seven shapes are drawn, we start over with the first 
shape in AUX in the next screen byte, and so we do an INC BYTE. This is in 
contrast to 2-bit moves in single hi-res where we have to move 2 bytes over after 
every seven shapes. Thus the protocol can be represented by A-M-INY-A—next 
screen byte—A-M-INY-A. 

Let’s now use these shapes in a program. The following program (Program 
12-1) moves the line left to right across the screen in the same way that we 
moved the plane shape in previous programs. There is very little change from a 
single hi-res program, the major alteration being in the draw routine. The flow- 
chart for Program 12-1 is on page 235. 


JPROGRAM 12-1 
: ASM 


1 ** DOUBLE HI-RES ** 2 BIT HORIZONTAL MOVE 

2 ORG $6000 
6000: 4C 1B 60 3 JMP PGM 

4 LINE US, al 

5 LINEA DS, . A 

6 BYTE OS; “ 

7 DEPTH DS 

8 XCOUNT DS 1 

9 SHPNO DSi rs 

10 DELAY DS. 41 

11 ~TEMP DS 3 

12 GRAPHICS = $C050 

13. MIXOFF = $C052 

14 ~—- HIRES = $C057 

15 ~~ AN3 = $COS5E 

16 COL80 = $CO0D 

17. = STORE80 = $C001 

18 AUX = $C055 

19 MAIN = $C054 

20 HIGH = $1B 

21 ~=LOW = $1A 

22. ~=«~WAIT = $FCA8 


23. *LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
24  ¥*CONTINUE FOR ALL 7 SHAPES 


600D: 09 25 SHPADR ODFB_ #<SHAPE1 
600E: 61 26 DFB #>SHAPE1 
600F: OC 27 DFB #<SHAPE2 


6010: 61 28 DFB #>SHAPE2 
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6011: OF 29 DFB #<SHAPE3 

6012: 61 30 DFB #>SHAPE3 

6013: 12 31 DFB #<SHAPE4 

6014: 61 32 DFB #>SHAPE4 

6015: 15 33 DFB #<SHAPE5 

6016: 61 34 DFB #>SHAPE5 

6017: 18 35 DFB #<SHAPE6 

6018: 61 36 DFB #>SHAPE6 

6019: 1B 37 DFB #<SHAPE7 

601A: 61 38 DFB #>SHAPE7 

601B: AD 50 CO 39 PGM LDA GRAPHICS 

601E: AD 52 CO 40 LDA MIXOFF 

6021: AD 57 CO 41 LDA HIRES 

6024: 8D 01 CO 42 STA STORE80 

6027: 8D 0D CO 43 STA COL80 

602A: AD 5E CO 44 LDA AN3 

602D: AD 54 CO 45 LDA MAIN 

6030: 20 3C 60 46 JSR CLEAR 3;CLEAR MAIN SCREEN 
6033: AD 55 CO 47 LDA AUX 

6036: 20 3C 60 48 JSR CLEAR ;CLEAR AUX SCREEN 
6039: 4C 56 60 49 JMP_ DE 

603C: A9 00 50 CLEAR LDA #00 ;CLEAR SCREEN SUBROUTINE 
603E: 85 1A 51 STA LOW 

6040: A9 20 52 LDA #$20 

6042: 85 1B 53 STA HIGH 

6044: AO 00 54 = CLR1 LDY #00 

6046: A9 00 55 LDA #00 233 
6048: 91 1A 56 CLR STA (LOW),Y ‘ig 
604A: C8 57 INY 

604B: DO FB 58 BNE CLR 

604D: £6 1B 59 INC HIGH 

604F: A5 1B 60 LDA HIGH 

6051: C9 40 61 CMP #$40 

6053: 90 EF 62 BCC CLR1 

6055: 60 63 RTS 

6056: AQ 60 64 ODE LDA #$60 ;LOAD DELAY 

6058: 8D 09 60 65 STA DELAY 


66 MAIN PROGRAM tote 
605B: 20 89 60 67 START JSR INITIAL 3SET INITIAL BYTE, LINE, DEPTH 


605E: A9 00 68 START1 LDA #$00 3F IRST SHAPE NUMBER 

6060: 8D 08 60 69 STA SHPNO 

6063: 20 9B 60 70 START2 JSR  LOADSHP ;LOAD SHAPE INTO TEMP 

6066: 20 B7 60 71 JSR DRAW ;DRAW 

6069: AD 09 60 72 LDA DELAY ;DELAY 

606C: 20 A8 FC 73 JSR WAIT 

606F: 20 B7 60 74 JSR DRAW ;ERASE 

6072: EE 08 60 75 INC SHPNO ;NEXT SHAPE NUMBER 

6075: AD 08 60 76 LDA SHPNO 

6078: C9 07 77 CMP #$07 sFINISHED ALL 7 SHAPES? 

607A: 90 E7 78 BLT START2 31F NO, CONTINUE WITH NEXT SHAPE 

607C: EE 05 60 79 INC BYTE ;IF YES, NEXT BYTE 

607F: AD 05 60 80 LDA BYTE 

6082: C9 26 81 CMP #$26 3END OF SCREEN? 

6084: 90 D8 82 BLT START1 3IF NO, CONTINUE DRAW 

6086: 4C 5B 60 83 JMP START 3IF YES, START OVER 
84 KKK KKKKKK SUBROUTINES KeKKKKKKKK 

6089: AQ 00 85 INITIAL LDA #$00 

608B: 8D 05 60 86 STA BYTE 

608E: 8D 03 60 87 STA LINE 

6091: 8D 04 60 88 STA LINEA 

6094: 18 89 CLC 
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6095: 
6097: 
609A: 


609B: 
609E: 
609F : 
60A0: 
60A3: 
60A5: 
60A8: 
60AA: 
60AC: 
60AE: 
60B1: 
60B2: 
60B4: 
60B6: 


60B7: 
60B9: 
60BC: 
60BF: 
60C2: 
60C5: 
60C7: 
60CA: 
60CC: 
60CF: 
60D2: 
60D4: 
60D7: 
60D9: 
60D0C: 
60DE: 
60E1: 
60E3: 
60E4: 
60E7: 
60E9: 
60EC: 
60EE: 
60F 1: 
60F4: 
60F7: 
60FA: 
60FD: 
6100: 
6102: 
6105: 
6108: 
6109: 
610C: 
610F: 
6112: 
6115: 
6118: 
611B: 


60 


ADC #$01 

STA DEPTH 

RTS 
kkk KKK KK KK KKKKKKKKKKEK 
LOADSHP LDA SHPNO 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
CPY 
BLT 
RTS 
** DRAW SUBROUTINE ** 


SHPADR, X 
LOW 
SHPADR+1, X 
HIGH 

#$00 
(LOW) ,Y 
TEMP, Y 


LOADSHP1 


#$03 
LOADSHP1 


POeeeeeeUCCECOCOOeCer egy 


POee eee CCU OCC C ESOC CCCOOCOOOCCCCC OC CCCeere reer errr rrr eg) 


;DEPTH OF SHAPE 


;LOAD SHAPE INTO TEMP 


** AUX-MAIN-NEXT BYTE-AUX ** 


DRAW LDA 
STA 
LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
LDA (LOW),Y 
EOR 
STA (LOW),Y 
LDA 
LDA 
EOR : 
STA (LOW),Y 
INY 
LDA 
LDA 
EOR 
STA 
INC 
INC 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


#$00 
XCOUNT 
BYTE 
LINE 


DRAW1 


AUX 
(LOW) ,Y 
TEMP+2,X 
(LOW) ,Y 
XCOUNT 
XCOUNT 
XCOUNT 
LINE 
LINE 
DEPTH 
DRAW1 
LINEA 
LINE 


SHAPE1 
SHAPE2 
SHAPE3 
SHAPE4 
SHAPES 
SHAPE6 
SHAPE7 
HI 

LO 


1£0000 
780000 
600300 
O00F 00 
003C00 
007001 
004007 


sRESET LINE FOR NEXT CYCLE 


670 bytes 


Symbol table - numerical order: 


PoeeeUEUCPeC ECE eeCee eee ereereeeeereerrerererrrrer rr rrrrerrerrr rere creer rere errr rere rere eee) 


Double Hi-Res Graphics and Animation 


LOW =$1A HIGH =$1B LINE =$6003 LINEA =$6004 
BYTE =$6005 DEPTH  =$6006 XCOUNT =$6007 SHPNO =$6008 
DELAY =$6009 TEMP =$600A SHPADR =$600D PGM =$601B 
CLEAR =$603C CLR1 =$6044 CLR =$6048 DE =$6056 
START  =$605B START1 =$605E START2 =$6063 INITIAL =$6089 
LOADSHP =$609B LOADSHP1=$60AC DRAW =$60B7 DRAW1 =$60BC 
SHAPE1 =$6109 SHAPE2 =$610C SHAPE3 =$610F SHAPE4 =$6112 
SHAPES =$6115 SHAPE6 = =$6118 SHAPE7 =$611B HI =$611E 
LO =$61DE STORE80 =$C001 COL80 =$CO0D GRAPHICS=$C050 
MIXOFF =$C052 MAIN =$C054 AUX =$C055 HIRES  =$C057 
AN3 =$CO5E WAIT =$FCA8 


LOAD SHAPE ADDRESSES 
INTO SHPADR 


SET DOUBLE HI-RES MODE 


DISPLAY AND CLEAR 
SCREEN, AUX & MAIN 


SET INITIAL LINE NUMBER, BYTE 
POSITION AND DEPTH 


FIRST SHAPE 
LOAD INTO TEMP 


DRAW; AUX-MAIN-INY-AUX 
DELAY 
ERASE 
NEXT SHAPE 
No 
ALL 7 SHAPES? 
No 


Yes 
NEXT SCREEN BYTE 
Yes 
END OF SCREEN? 


Hi-Res Graphics and Animation Using Assembly LANGUAGE «+++ 200+ ee ee eee e eee ee ee ee eee ee nsec ee eenee ee ee eats nent en eeneneseeeeneeeeees 


The program can be modified easily to move lines of any length by altering 
the draw routine. For a line occupying both AUX and MAIN of one screen byte, 
the protocol is A-M-INY-A-M—next screen byte—A-M-INY-A-M. For a line 
occupying AUX and MAIN of one screen byte and AUX of the next, we would 
use A-M-INY-A-M-INY-A—next screen byte—A-M-INY-A-M-INY-A, and so on. 

To demonstrate how to draw complicated shapes, I’ve included the follow- 
ing program, which moves a spaceship vertically. Running this program will illus- 
trate how neat double hi-res is compared to single hi-res. 


JPROGRAM 12-2 
:ASM 


1 ** DOUBLE HI-RES * VERTICAL SPACESHIP 
2 ORG $6000 
6000: 4C 09 60 3 UMP PGM 
4 LINE Dds 1 
5 LINEA DS 1 
6 BYTE Dsl 
7 DEPTH DS 1 
8  XCOUNT DS 1 
9 DELAY DS 1 
10 GRAPHICS = — $C050 
11 MIXOFF =  $C052 
12 HIRES = — $C057 
13. AN3 = — $CO5E 
236 14 cOL80 =  $COOD 
ry 15  STORE80 = $C001 
16 AUX = — $C055 
17 MAIN =  $C054 
18 HIGH = $18 
19 LOW = $1A 
20. WAIT =  $FCA8 
6009: AD 50 CO 21  PGM LDA GRAPHICS 
600C: AD 52 CO 22 LDA MIXOFF 
600F: AD 57 CO 23 LDA HIRES 
6012: 8D 01 CO 24 STA STORE8O 
6015: 8D OD CO 25 STA COL80 
6018: AD 5E CO 26 LDA AN3 
601B: AD 54 CO 27 LDA MAIN 
601E: 20 2A 60 28 JSR CLEAR CLEAR MAIN SCREEN 
6021: AD 55 CO 29 LDA AUX 
6024: 20 2A 60 30 JSR CLEAR CLEAR AUX SCREEN 
6027: 4C 44 60 31 UMP DE 
602A: AQ 00 32 CLEAR LDA #00 ;CLEAR SCREEN SUBROUTINE 
602C: 85 1A 33 STA LOW 
602E: AQ 20 34 LDA #$20 
6030: 85 1B 35 STA HIGH 
6032: AO 00 36 CLR LDY #00 
6034: AQ 00 37 LDA #00 
6036: 91 1A 38 CLR STA (LOW),Y 
6038: C8 39 INY 
6039: DO FB 40 BNE CLR 
603B: E6 1B 41 INC HIGH 
603D: AS 1B 42 LDA HIGH 
603F: C9 40 43 CMP #$40 
6041: 90 EF 44 BCC CLR1 
6043: 60 45 RTS 
6044: AQ 60 46 DE LDA #$60 ;LOAD DELAY 


6046: 8D 08 60 47 STA DELAY 


Reem eee meee eee eee eee eee eee eee eee EEE EEE EEEEE SEES EEESES SEES ESE HESS SEE EEEE EEE EEEEEES OSES 


6049: 
604C: 
604F: 
6052: 
6055: 
6058: 
605B: 
605E : 
6061: 
6064: 
6066: 
6068: 


606B: 
606D: 
6070: 
6073: 
6076: 
6077: 
6079: 
607C: 


607D: 
607F: 
6082: 
6085: 
6088: 
608B: 
608D: 
6090: 
6092: 
6095: 
6098: 
609A: 
609D: 
609F : 
60A2: 
60A4: 
60A7: 
60A9: 
60AA: 
60AD: 
60AF : 
60B2: 
60B4: 
60B7: 
60B9: 
60BC: 
60BE: 
60BF : 
60C2: 
60C4: 
60C7: 
60C9: 
60CC: 
60CD: 
60CF: 
60D2: 
60D5: 


KkKKKKKKKK MAIN PROGRAM kkk KK KKK 
START JSR INITIAL 
START] JSR DRAW 
LDA DELAY 
JSR WAIT 
JSR DRAW 
INC DEPTH 
INC LINEA 
LDA LINEA 
STA LINE 
CMP #$B8 
BGE START 
START1 
KKKKKKKKKK SUBROUTINES KKKKKKKKKK 
INITIAL LDA #$00 
STA BYTE 
STA LINE 
STA LINEA 
CLC 
ADC 
STA 
RTS 
kaekkkkk kK KK KK KKK 
** DRAW SUBROUTINE ** 
DRAW LDA #$00 
STA XCOUNT 
LDY BYTE 
LDX LINE 
LDA HI,X 
STA HIGH 
LDA LO,Xx 
STA LOW 
LDX XCOUNT 
LDA AUX 
LDA (LOW),Y 
EOR SHAPE ,x 
STA (LOW),Y 
LDA MAIN 
LDA (LOW),Y 
EOR SHAPE+1,X 
STA (LOW),Y 
INY 
LDA 
LDA 
EOR 
STA 
LDA 
LDA 
EOR 
STA 
INY 
LDA 
LDA 
EOR 
STA 
LDA 
CLC 
ADC 
STA 
INC 
LDA 


#$0D 
DEPTH 


DRAW1 


AUX 
(LOW) ,Y 
SHAPE+2, X 
(LOW) ,Y 
MAIN 
(LOW), Y 
SHAPE+3, X 
(LOW), Y 


AUX 
(LOW) ,Y 
SHAPE+4, X 
(LOW) ,Y 
XCOUNT 


#$05 
XCOUNT 
LINE 
LINE 


;DEPTH OF SHAPE 


Double Hi-Res Graphics and Animation 


3SET INITIAL BYTE, LINE, DEPTH 


237 


238 


eee ee eee ee rey 


60D8: CD 06 60 109 CMP DEPTH 
60DB: 90 A5 110 BLT DRAW1 
60DD: AD 04 60 111 LDA LINEA 
60E0: 8D 03 60 112 STA LINE sRESET LINE FOR NEXT CYCLE 
60E3: 60 113 RTS 
60E4: 00 60 3F 114 SHAPE HEX 00603F0000 
60E7: 00 00 
60E9: 00 50 56 115 HEX 0050560000 
60EC: 00 00 
60EE: 00 78 7F 116 HEX 00787F0100 
60F1: 01 00 
60F3: 01 07 00 117 HEX 0107000E08 
60F6: OE 08 
60F8: 7E 40 3B 118 HEX 7£403B7007 
60FB: 70 07 
60FD: 7E SC 52 119 HEX 7E5C527307 
6100: 73 07 
6102: 41 54 49 120 HEX 4154491208 
6105: 12 08 
6107: 40 5C 48 121 HEX 405C481300 
610A: 13 00 
610C: 40 00 00 122 HEX 4000001000 
610F: 10 00 
O11: 40: 7F 7F 23 HEX 407F7F1F00 
6114: 1F 00 
6116: 20 0C 00 124 HEX 200C002300 
6119: 23 00 
611B: 10 0C 00 125 HEX 100C004300 
611E: 43 00 
6120: IC 3F 60. 126 HEX 1C3F604F03 
6123: 4F 03 

HI 

LO 
677 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B LINE =$6003 LINEA =$6004 
BYTE =$6005 DEPTH =$6006 XCOUNT =$6007 DELAY =$6008 
PGM =$6009 CLEAR =$602A CLR1 =$6032 CLR =$6036 
DE =$6044 START  =$6049 START1 =$604C INITIAL =$606B 
DRAW =$607D DRAW1 =$6082 SHAPE  =$60E4 HI =$6125 
LO =$61E5 STORE80 =$C001 COL80 =$cOOD GRAPHICS=$C050 
MIXOFF =$C052 MAIN =$C054 AUX =$C055 HIRES  =$C057 
AN3 =$CO5E WAIT =$FCA8 


We've seen that drawing and animating shapes in double hi-res is relatively 
simple—just by examining the shape tables we can tell what kind of draw rou- 
tine is required. The only difficulty is that the extra resolution afforded puts 
greater demands on our artistic talents, whatever they may be. But with this 
greater demand comes a greater opportunity and the extra work required is well 
worth the results. 


salbisin:oin, cia olSiovw alata siaiale Aidieie: ters Rieieiascin Os Suid cia Sin Sioalnciele slabs clue alae sle's Saale Sap eieens sive sles meine alba easier Double Hi-Res Graphics and Animation 


DOUBLE HI-RES COLOR SHAPES 


Peer eee eee renee ee eee eee eee esse eeeeeeseseeeeeee 


Displaying color in double hi-res requires quite a different procedure from 
single hi-res. First, the high bit has nothing to do with color selection—it is 
simply ignored. Second, colors are not produced by plotting dots in alternate 
rows, but rather are determined by the particular combination of 4 dots or bits 
displayed at particular positions on the screen. For example, if we were to place 
0 0 0 1 in AUX1, the first screen position at the left of the screen, magenta 
would be displayed. If instead we plotted 0 1 0 0, we would get a dark green, 
0 1 1 1 ayellow, and so on. As there are 16 combinations of 4 bits, 16 colors are 
available. However, one is white, one is black, and there are two greys, and so 
actually we have 13 colors to choose from, quite an improvement over the 4 
colors in single hi-res. Because the horizontal resolution in double hi-res is 560 
dots and we use 4 for each color, the resolution in double hi-res color is 560/4 = 
140 or the same as in single hi-res color. But, with more colors to choose from, 
we can display more interesting graphics and with more apparent resolution 
because of color contrasts. Also, as we'll see, there is no limitation to color 
combinations within lines as there is in single hi-res. 

Because the high bit of the shape byte is not plotted, this presents a problem 
when we want to repeat a particular dot pattern on the screen, which we would 


do, for example, in plotting a line of a single color. Suppose we want to display a 
dark blue line. The repeated dot pattern we want on the screen is 1 0 0 0. If we 
plot shape byte #$11 in AUX1, we will get the desired pattern, but if #$11 is also 239 
plotted in the next byte, MAIN1, see what happens: is 
AUX1 MAIN1 
#$11 #$11 
1000100}1000100 


aS) ed) Ce 


Obviously, the desired pattern is not repeated. The pattern is repeated, however, 
by plotting #$22 in MAIN1 and to continue the pattern, we would plot #$44 in 
AUX2 and #$08 (or #$88) in MAIN2, the next two positions over. 


AUX1 MAIN1 AUX2 MAIN2 
#$11 #$22 #$44 #$08 
1000100};0100010,0010001);0001000 
Le a oes 


After these 4 bytes, the pattern repeats itself, starting with #$11 in AUX3, 
#$22 in MAIN3, etc. If we were to plot a dark blue line from AUX2, for example, 
the bytes would be #$44, #$08, #$11, #$22, #$44, etc. Thus, each color has its 
own sequence of 4 bytes, the particular starting byte required depending on the 
distance from the left screen border. The dot pattern and the 4-byte sequence 
for each of the 16 colors is shown in Table 12-1. 
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Hi-Res Graphics and Animation Using Assembly LANGUAGE +++: ++ +s eerste ee eee nese ee ne eee eeeeeeeeeeeee tenses eseseseeeeeneaeeeenea enna 


Table 12-1 
Color Bit Pattern AUX1 MAINI AUX2 MAIN2 
Black 0000 #$00 #$00 #$00 #$00 
Magenta 0001 #$08 #$11 #$22 #$44 
Brown 0010 #$44 #$08 #$11 #$22 
Orange 0011 #$4C #$19 #$33 #$66 
Dark Green 0100 #$22 #$44 #$08 #$11 
Grey 1 Ot Or #$2A #$55 #$2A #$55 
Green 0110 #$66 #$4C #$19 #$33 
Yellow 0111 #$6E #$5D #$3B #$77 
Dark Blue 1000 #$11 #$22 #$44 #$08 
Violet 0-0-4 #$19 #$33 #$66 #$4C 
Grey 2 1010 #$55 #$2A #$55 #$2A 
Pink p Ven 6 Hn #$5D #$3B #$77 #$6E 
Medium Blue 1100 #$33 #$66 #$4C #$19 
Light Blue 11°04 #$3B #$77 #$6E #$5D 
Aqua 1110 #$77 #$6E #$5D #$3B 
White 7 Fe Ua i #$7F #$7F #$7F #$7F 


This table is useful for drawing any color line anywhere on the screen. The 
particular starting point determines which byte is used first, then the other bytes 
are plotted in sequence. This is fine for a line of a single color but what if we 
want to plot a line with two or more colors? If the new color starts at a 4-byte 
boundary, we continue with the next sequence of 4 bytes for the new color. 
Thus, to plot a line in dark blue and magenta, with each color containing 4 bytes, 
the sequence would be 11,22,44,08,08,11,22,44. If the new color starts in the 
middle of a 4-byte sequence, we have to calculate a new byte at the color shift 
point by inspection. Let’s say we want to plot a line containing 2 bytes of dark 
blue and 2 bytes of magenta. From Table 12-1 we get the values 11 and 22 for 
the dark blue in AUX1 and MAIN1, and 22 and 44 for the magenta in AUX2 and 
MAIN2. See what happens when we plot these bytes: 


AUX1 MAIN1 AUX2 MAIN2 
#$11 #$22 #$22 #$44 
1000100/;0100010/;0100010/0010001 
ee) a) ee aS) SS os Vea 


blue blue blue violet magenta magenta magenta 


Obviously, a different byte is required to turn that fourth position into either 
blue or magenta. Let’s change it to a dark blue. The byte to be plotted in AUX2 is 
#$20: 


AUX1 MAIN1 AUX2 MAIN2 
#$11 #$22 #$20 #$44 
1000100;0100010/0000010/0010001 
ta Rh a ee) Ee ee 
blue blue blue blue magenta magenta magenta 


Similarly, if we want to change the fourth position to magenta, the order of 
bytes would be 11, 02, 22, 44. I wish I could think of some formula to make this 
kind of change easier but I can’t—I think it just has to be done by inspection, but 
this is not so bad. You just decide what colors you want, inspect the dot patterns, 
and choose the bytes accordingly. 


eee eee eee eee eee eee ee eee eee reece errr reece reer ee eee reer eee eee rere eee errr eee eee eee eee 


Note that there is no limitation for color combinations within a line—any of 
the 16 colors can be placed next to any other. This provides for much greater 
flexibility than is available in single hi-res color, over and above the larger 
number of colors available. 

Drawing a shape in double hi-res color takes some getting used to. What you 
have to do is imagine that every 4 bits plot a single dot, so there are seven 
possible dot plots for every two screen bytes, just as in single hi-res color. The 
shape is plotted out, the shape bytes assembled into the usual shape tables, and 
the shape can then be drawn with the double hi-res routines described in the 
beginning of this chapter. We’ll see an example in the next section. 

I say “imagine” every 4 bits plot a single dot because in actuality, each bit 
that’s “on” in the set of 4 is plotted. This is most easily seen on a monochrome 
monitor, but it does have implications for the color display as well. To see what 
this is all about, run the following program, which displays all 16 colors as lines, 
each directly below the other, and observe the display on both a color and 
monochrome monitor. 


JPROGRAM 12-3 
:ASM 


1 *DOUBLE HI-RES COLOR BARS 
2 KKRKKKKKEKKK EKER EEEREKEREKKKKKKKE 
3 ORG $6000 
6000: 4C 06 60 4 JMP PGM 
5 LINE DS? 4 at 
6 BYTE DS: 4 
7 XCOUNT DS 1 
8 GRAPHICS = $C050 
9 HIRES = $C057 
10 MIXOFF = $C052 
11 ~— STORE = $C001 
12. AN3 = $COSE 
13 ‘COL = $COOD 
14 AUX = $C055 
15 MAIN = $C054 
16 HIGH = $1B 
17. —LOW = $1A 
6006: AD 50 CO 18 PGM LDA GRAPHICS 
6009: AD 57 CO 19 LDA HIRES 
600C: 8D 01 CO 20 STA STORE 
600F: 8D OD CO 21 STA COL 
6012: AD 5E CO 22 LDA AN3 
6015: AD 52 CO 23 LDA MIXOFF 
6018: AD 54 CO 24 LDA MAIN 
601B: 20 27 60 25 JSR CLEAR ;CLEAR MAIN P.1 
601E: AD 55 CO 26 LDA AUX 
6021: 20 27 60 27 JSR CLEAR ;CLEAR AUX P.1 
6024: 4C 41 60 28 JMP START 
29 KREKKKKKKKKKKKKKKKK KKK KKK 
6027: AQ 00 30 CLEAR LDA #$00 sCLEAR SCREEN 1 
6029: 85 1A 31 STA LOW 
602B: A9 20 32 LDA #$20 
602D: 85 1B 33 STA HIGH 
602F: AO 00 34 =CLR1 LDY #$00 
6031: A9 00 35 LDA #$00 
6033: 91 1A 36 ~=6CLR STA (LOW),Y 
6035: C8 37 INY 
6036: DO FB 38 BNE CLR 


6038: E6 1B 39 INC HIGH 
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603A: 
603C: 
603E: 
6040: 


6041: 
6043: 
6046: 
6049: 
604C: 
604F: 
6051: 
6054: 
6056: 
6059: 
605C: 
605F : 
6061: 
6064: 
6067: 
6069: 
606A: 
606D: 
6070: 
6072: 
6075: 
6078: 
607A: 
607D: 
6080: 
6083: 
6086: 
6089: 
608C: 
608F : 
6091: 
6093: 
6094: 
6097: 
6098: 
609B: 
609C: 
609F : 
60A0: 
60A3: 
60A4: 
60A7: 
60A8: 
60AB: 
60AC: 
60AF : 
60B0: 
60B3: 
60B4: 
60B7: 
60B8: 
60BB: 
60BC: 
60BF: 
60C0: 
60C3: 


kkKKKKKK 


START 
START1 


COLOR 


LDA HIGH 
CMP #$40 

BLT CLR1 

RTS 

MAIN PROGRAM **##+#%% 
LDA #$00 

STA XCOUNT 

LDX LINE 

LDY BYTE 

LDA HI,Xx 

STA HIGH 

LDA LO,x 

STA LOW 

LDX XCOUNT 

LDA AUX 

LDA COLOR,X 

STA (LOW),Y 

LDA MAIN 

LDA COLOR+1,Xx 

STA (LOW),Y 


INY 
LDA AUX 

LDA COLOR+2,X 
STA (LOW),Y 
LDA MAIN 

LDA COLOR+3,X 
STA (LOW),Y 
INC XCOUNT 
INC XCOUNT 
INC XCOUNT 
INC XCOUNT 
INC LINE 

INC LINE 

LDA LINE 

CMP #$1F 

BLT START 
RTS 
HEX 00000000 


HEX 08112244 


HEX 44081122 
HEX 4C193366 
HEX 22440811 
HEX 2A552A55 
HEX 664C1933 
HEX 6E5D3B77 
HEX 11224408 
HEX 1933664C 
HEX 552A552A 


HEX 5D3B776E 


SRR e eee eee meee eee eee EEE ee EE EEE EEE EEEEEE EEE EE EESEEEEEEEEEEeEeEEssseesees 


POOR O ee eee ee ee eee eee eee H ORE ESET EEE E EEE SHES ESSE EEE EE EES EEEEE SESE HEE E EEE HEHEHE EEE EEEEEES 


60C4: 33 66 4C 89 HEX 33664C19 
60C7: 19 
60C8: 3B 77 6E 90 HEX 3B776E5D 
60CB: 5D 
60CC: 77 6E 5D 91 HEX 776E5D3B 
60CF: 3B 
60D0: 7F 7F 7F 92 HEX 7F7F7F7F 
60D3: 7F 


HI 
LO 


596 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B LINE =$6003 BYTE 
XCOUNT =$6005 PGM =$6006 CLEAR =$6027 CLR1 
CLR =$6033 START  =$6041 START1 =$6046 COLOR 
HI =$60D4 LO =$6194 STORE  =$C001 COL 
GRAPHICS=$C050 MIXOFF =$C052 MAIN =$C054 AUX 
HIRES  =$C057 AN3 =$CO5E 


On a monochrome monitor, preferably with the aid of a magnifying glass, 
you would observe the following dot patterns, but of course much closer than 
shown: 


Magenta 0001 . . . . 
Brown 0010 . . . . 
Orange 0011 oe ae oe es 
Dark Blue 1000 . . . . 
Aqua 1110 ose eee ses cee 


This is why double hi-res colors are distinguishable on a monochrome 
monitor—they all have a different dot pattern. On a color monitor, at least on 
mine, the individual dots are not seen; continuous color lines are. 

There is a problem, however, in the color display. Look at the color monitor. 
Although each line is plotted starting from the first screen position (AUX1 ), not 
all line up exactly. The most extreme example is magenta and dark blue as you 
might suspect, because the dot patterns are 0001 and 1000; i.e., the “on” bits are 
at opposite ends of the 4-bit group. Other color combinations also have this 
alignment problem to a degree depending on the particular dot patterns—the 
closer the “on” bits are to each other, the lesser the problem. Thus, the 4-bit 
pattern not only selects a particular color, but also changes slightly exactly 
where the color is drawn. This presents the only limitation I can think of regard- 
ing double hi-res color combinations. If you want lines to align themselves 
closely, there are certain color combinations that should not be used. Thankfully, 
most combinations result in only a minor misalignment, so this is not a big prob- 
lem but is one you should be aware of when designing your shapes. 
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=$6004 
=$602F 
=$6094 
=$C00D 
=$C055 
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Hi-Res Graphics and Animation Using Assembly Language 


ANIMATING DOUBLE HI-RES COLOR SHAPES 


TORRE RHEE eee e HOES OEE E TEESE HEHE ESET EES ESE EEEE® 


Is there a problem with vertical animation? Boo and hiss to those who 
answer yes. As there is no change in column assignments, the shape is just drawn 
once and moved up or down by changing screen line positions. Is there a prob- 
lem with horizontal animation? Does Apple make computers? 

Let’s consider a program (Program 12-4) that moves a single dark blue line 
across the screen. The line length is just 2 bytes, so the first shape, at the left 
screen border, contains bytes #$11 and #$22 from Table 12-1. The line could be 
moved in whole screen-byte intervals, but this makes for rather jerky movement, 
so we'll use half screen-byte jumps. As with other types of horizontal movement, 
here too we use seven shape tables, but the particular bytes required cannot be 
taken from Table 12-1 except for the first shape. To illustrate this, let’s look at 
the seven shape tables and see what bytes are required to obtain the desired dot 
pattern. 


AUX1  MAIN1 | AUX2  MAIN2  AUX3 ~~ MAIN3 
#$11 #$22 | #$00 | #$00 #$00 #$00 


Shape 1 1000100|0100010/0000000 PE ic aaerener te 0000000 
CS ee ee 


#$10 #$22 #$04 #$00 #$00 #$00 
Shape 2. 0000100|0100010/0010000|0000000/0000000|0000000 
a ee ag ee 


#$00 | #$22 #$44 #$00 #$00 #$00 
Shape 3 0000000|0100010|0010001/0000000/0000000/0000000 
ee Le) hd ee!) 


#$00 | #$20 #$44 #$08 #$00 #$00 
Shape 4 0000000/0000010/0010001|0001000|0000000|0000000 


#$00 #$00 #$44 #$08 #$01 #$00 
Shape 5 0000000|0000000/0010001|0001000|1000000|0000000 
Sr 


#$00 | #$00 #$40 #$08 #$11 #$00 
Shape 6 0000000|0000000|0000001/0001000|1000100|0000000 
oie Ld 


#$00 #$00 #$08 #$11 | #$02 


#$00 
Shape 7 sdgpnoslienrons 0000000/0001000|1000100|0100000 
bd Le Le Ld 


Once the seven shapes are drawn, the pattern is repeated, but with the first 
shape now drawn 2 screen bytes over, i.e., #$11 in AUX3 and #$22 in MAIN3, 
etc. Thus, in the MAIN PROGRAM, we do INC BYTE twice after each seven 
shapes. Each shape table consists of 6 bytes and the draw routine is A-M-INY-A- 
M-INY-A-M—2 bytes over—A-M-INY-A-M-INY-A-M, etc. The remainder of the 
program needs no further explanation, except to remind you that it can easily be 
adapted to multiple line shapes by extending the shape tables and modifying 
TEMP and the load shape routine accordingly. Thus, to draw two blue lines of 
the same length, one under the other, the shape 1 table would be 11, 22, 00, 00, 
00, 00, 11, 22, 00, 00, 00, 00, TEMP would be changed to DS 12, and in the 


PRT e eee REE EERE EET EEE TEESE EEE EEE EEE EEE EEE EEE EEE EEEEEEEEEEEE EEE EEEES 


Pree eee eee eee eee eee eee eee eee eee eee eee eee eee ee eee rere reer eee eee eee e eee ee eee ere Double Hi-Res Graphics and Animation 


LOADSHP subroutine, the CPY #$06 would be changed to CPY #$0C to take into 
account the shape tables now containing 12 bytes instead of 6. 


LOAD SHAPE ADDRESSES 
INTO SHPADR 
SET DOUBLE HI-RES MODE 


DISPLAY AND CLEAR 
SCREEN, AUX & MAIN 


SET INITIAL LINE NUMBER, BYTE 
POSITION AND DEPTH 


FIRST SHAPE 
LOAD INTO TEMP 


DRAW; AUX-MAIN-INY- 
AUX-MAIN-INY-AUX-MAIN 


NEXT SHAPE 
ALL 7 SHAPES? 


Yes 
MOVE TWO SCREEN BYTES 


END OF SCREEN? 


JPROGRAM 12-4 

: ASM 

*DOUBLE HI-RES COLOR * 1 BLUE LINE 
KEKKKKEKKKKKKKKKK KKK KKK KKK KKK KKK 
KKKKKKKKKKKKKKK KKK KK KK KKK KK KKK KK KI 
KkkKK KKK KKK KK KKKKK KKK KKK KKK KKK KKK 


ORG $6000 

JMP PGM 
LINE DS. 1 
LINEA OSs wel 
BYTE US: 41 


6000: 4C 1E 60 


WOONDOSWMHrE 
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6010: 
6011: 
6012: 
6013: 
6014: 
6015: 
6016: 
6017: 
6018: 
6019: 
601A: 
601B: 
601C: 
601D: 
601E: 
6021: 
6024: 
6027: 
602A: 
602D: 
6030: 
6032: 
6035: 
6038: 
603B: 
603E: 
6041: 


6044: 
6046: 
6048: 
604A: 
604C: 
604E: 
6050: 
6052: 
6053: 
6055: 
6057: 
6059: 
605B: 
605D: 


605E: 


8F 60 70 


DEPTH DS... 1 
XCOUNT DS 1 
SHPNO DS. 1 
TEMP DS 6 
DELAY DS 1 
GRAPHICS = $C050 
HIRES = $C057 
MIXOFF = $C052 
STORE = $C001 
AN3 = $CO5E 
COL = $CO0D 
AUX = $C055 
MAIN = $C054 
HIGH = $1B 
LOW = $1A 
WAIT = $FCA8 


*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 


SHPADR DFB  #<SHAPE1 

DFB  #>SHAPE1 

DFB  #<SHAPE2 

DFB  #>SHAPE2 

DFB #<SHAPE3 

DFB  #>SHAPE3 

DFB  #<SHAPE4 

DFB #>SHAPE4 

DFB  #<SHAPES 

DFB  #>SHAPES 

DFB #<SHAPE6 

DFB  #>SHAPE6 

DFB  #<SHAPE7 

DFB  #>SHAPE7 
PGM LDA GRAPHICS 

LDA HIRES 

STA STORE 

STA COL 

LDA AN3 

LDA MIXOFF 

LDA #$70 

STA DELAY 

LDA MAIN 

JSR CLEAR CLEAR MAIN P.1 

LDA AUX 

JSR CLEAR CLEAR AUX P.1 

JMP START 
KEKKKKKKKKK KKK KKK KK KKK 
CLEAR LDA #$00 

STA LOW 

LDA #$20 

STA HIGH 
CLR1 LDY #$00 

LDA #$00 
CLR STA (LOW),Y 

INY 

BNE CLR 

INC HIGH 

LDA HIGH 

CMP #$40 

BLT CLRI 

RTS 
kkk k kk MAIN PROGRAM kkkkkkekk 
START JSR INITIAL 


;CLEAR SCREEN 1 


TORO e ee eee EEE H EE ESTEE EEE EEE ES TEESE ESET EHEEEEEE EE EEEEE SEE EEEEE EE EEES 


eee eee eee eee eee EEE EEE ERE H EEE EEE EEE HEHEHE SEED ESE SESESESEESSEEESEEE EEE EESEEESEEEHESEEEEEEEES 


6061: AQ 
6063: 8D 
6066: 20 
6069: 20 
606C: AD 
606F: 20 
6072: 20 
6075: EE 
6078: AD 
607B: C9 
607D: 90 
607F: EE 
6082: EE 
6085: AD 
6088: C9 
608A: 90 
608C: 4C 


608F: A9 
6091: 8D 
6094: 8D 
6097: 8D 
609A: 18 
609B: 69 


609D:: 8D 


60A0: 60 


60A1: AD 
60A4: OA 
60A5: AA 
60A6: BD 
60A9: 85 
60AB: BD 
60AE: 85 
60B0: AO 
60B2: Bl 
60B4: 99 
60B7: C8 
60B8: CO 
60BA: 90 
60BC: 60 


60BD: A9 
60BF: 8D 
60C2: AC 
60C5: AE 
60C8: BD 
60CB: 85 
60CD: BD 
60D0: 85 
60D2: AE 
60D5: AD 
60D8: Bl 
60DA: 5D 
60DD: 91 
60DF: AD 
60E2: Bl 
60E4: 5D 
60E7: 91 
60E9: C8 
60EA: AD 


60 


START1 LDA 
STA 
START2 JSR 
JSR 
LDA 
JSR 
JSR 
INC 
LDA 
CMP 
BLT 
INC 
INC 
LDA 
CMP 
BLT 
JMP 


#$00 
SHPNO 
LOADSHP 
DRAW 
DELAY 
WAIT 
DRAW 
SHPNO 
SHPNO 
#$07 
START2 
BYTE 
BYTE 
BYTE 
#$26 
START1 
START 


KkekkKeKk SUBROUTINES wkkkkkkrk 


INITIAL LDA 
STA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
** LOAD SHAPE 
LOADSHP LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LOADSHP1 LDA 
STA 
INY 
CPY 
BLT 
RTS 


#$00 
BYTE 
LINE 
LINEA 


#$01 
DEPTH 


TABLE INTO TEMP ** 
SHPNO 


SHPADR , X 
LOW 
SHPADR+1, X 
HIGH 

#$00 
(LOW), Y 
TEMP, Y 


#$06 
LOADSHP1 


KRRKKKEKKKEREKKEKEEKREKEEKERKEKK KKK 


DRAW LDA 
STA 
DRAW1 LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
LDA 
EOR 
STA 
LDA 
LDA 
EOR 
STA 
INY 
LDA 


#$00 
XCOUNT 
BYTE 
LINE 
HI,X 
HIGH 
LO,Xx 
LOW 
XCOUNT 
AUX 
LOW),Y 
EMP, x 
(LOW) ,Y 
MAIN 
(LOW),Y 
TEMP+1,X 
(LOW), Y 


AUX 
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60ED: Bl 1A 
60EF: 5D OB 
60F2: 91 1A 
60F4: AD 54 
60F7: Bl 1A 
60F9: 5D OC 
60FC: 91 1A 
60FE: C8 

60FF: AD 55 
6102: Bl 1A 
6104: 5D OD 
6107: 91 1A 
6109: AD 54 
610C: Bl 1A 
610E: 5D OE 
6111: 91 1A 
6113: EE 07 
6116: EE 07 
6119: EE 07 
611C: EE 07 
611F: EE 07 
6122: EE 07 
6125: EE 03 
6128: AD 03 
612B: CD 06 
612E: 90 92 
6130: AD 04 
6133: 8D 03 
6136: 60 

6137: 11 22 
613A: 00 00 
613D: 10 22 
6140: 00 00 
6143: 00 22 
6146: 00 00 
6149: 00 20 
614C: 08 00 
614F: 00 00 
6152: 08 01 
6155: 00 00 
6158: 08 11 
615B: 00 00 
615E: 08 11 


737 bytes 


132 
60 133 
134 
CO 135 
136 
60 137 
138 
139 
CO 140 
141 
60 142 
143 
CO 144 
145 
60 146 
147 
60 148 
60 149 
60 150 
60 151 
60 152 
60 153 
60 154 
60 155 
60 156 
157 
60 158 
60 159 
160 
00 161 


04 162 
44 163 
44 164 
44 165 
40 166 
00 167 


SHAPE1 
SHAPE2 
SHAPE3 
SHAPE4 
SHAPES 
SHAPE6 
SHAPE7 


HI 
LO 


LDA (LOW),Y 

EOR TEMP+2,X 
STA (LOW),Y 

LDA MAIN 

LDA (LOW),Y 

EOR TEMP+3,X 
STA (LOW),Y 


LDA AUX 

LDA (LOW),Y 
EOR TEMP+4,X 
STA (LOW),Y 
LDA MAIN 

LDA (LOW),Y 
EOR TEMP+5,x 
STA (LOW),Y 
INC XCOUNT 
INC XCOUNT 
INC XCOUNT 
INC XCOUNT 
INC XCOUNT 
INC XCOUNT 
INC LINE 

LDA LINE 

CMP DEPTH 
BLT DRAW 
LDA LINEA 
STA LINE 


HEX 112200000000 
HEX 102204000000 
HEX 002244000000 
HEX 002044080000 
HEX 000044080100 
HEX 000040081100 


HEX 000000081102 


Symbol table - numerical order: 


LOW 
BYTE 
TEMP 
CLEAR 
START1 
LOADSHP1 
SHAPE2 
SHAPE6 
STORE 
MAIN 
WAIT 


=$1A 

=$6005 
=$6009 
=$6044 
=$6061 
=$60B2 
=$613D 
=$6155 
=$C001 
=$C054 
=$FCA8 


HIGH 
DEPTH 
DELAY 
CLR1 
START2 
DRAW 
SHAPE3 
SHAPE7 
COL 
AUX 


=$1B LINE =$6003 
=$6006 XCOUNT =$6007 
=$600F SHPADR =$6010 
=$604C CLR =$6050 
=$6066 INITIAL =$608F 
=$60BD DRAW1 =$60C2 
=$6143 SHAPE4 =$6149 
=$615B HI =$6161 
=$CO0D GRAPHICS=$C050 
=$C055 HIRES =$C057 


SHAPES 
LO 
MIXOFF 
AN3 


FOO R EERO e eee eee eee eee TEESE REESE REESE OE HEHEHE ESSE EEE E EE EEEEEEEEEEEEOES 


=$6004 


=$6221 
=$C052 
=$CO5E 


WESRE RS So 8s 6b Ke SR eSROSOSees SU oce sb eNeeessees sesSaess Obes ce sveentheus eet ssacesaeapesacctaeesess Double Hi-Res Graphics and Animation 


This is a simple program, but it illustrates the basic principles of horizontal 
animation in double hi-res color. For more complicated shapes with multiple 
colors, all one has to do is map out the shape to get the proper shape bytes and 
to design the proper draw routine. To see double hi-res color in action, run the 
following program, which moves a wildly colored spaceship vertically (I don’t 
have an extra month to draw the seven shapes for horizontal movement ). 


JPROGRAM 12-5 


ASM 


6000: 4C 09 60 


6009: 
600C: 
600F : 
6012: 
6015: 
6018: 
601B: 
601E: 
6021: 
6024: 
6027: 
602A: 
602C: 
602E: 
6030: 
6032: 
6034: 
6036: 
6038: 
6039: 
603B: 
603D: 
603F: 
6041: 
6043: 
6044: 
6046: 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
ll 
12 
13 
14 
15 
16 
lf 
18 
19 
20 
AD 50 CO 21 
AD 52 CO 22 
AD 57 CO 23 
8D 01 CO 24 
8D OD CO 25 
AD 5E CO 26 
AD 54 CO 27 
20 2A 60 28 
AD 55 CO 29 
20 2A 60 30 
4c 44 60 31 
A9 00 32 
85 1A 33 
AQ 20 34 
85 1B 35 
AO 00 36 
A9 00 37 
91 1A 38 
C8 39 
DO FB 40 
E6 1B 41 
A5 1B 42 
C9 40 43 
90 EF 44 
60 45 
A9 60 46 
8D 08 60 47 


** DOUBLE HI-RES COLOR * VERTICAL SPACESHIP 


ORG $6000 
UMP PGM 
LINE dS 1 
LINEA DS 1 
BYTE DS 
DEPTH DS 1 
XCOUNT DS 1 
DELAY oS 1 
GRAPHICS = — $C050 
MIXOFF =  $C052 
HIRES =  $CO057 
AN3 = — $CO5E 
COL80 =  $cooD 
STORE8O =  $CO001 
AUX =  $C055 
MAIN =  $C054 249 
HIGH = $18 
LOW = 1A & 
WAIT =  $FCA8 
PGM LDA GRAPHICS 
LDA MIXOFF 
LDA HIRES 
STA STORE80 
STA COL80 
LDA AN3 
LDA MAIN 
JSR CLEAR sCLEAR MAIN SCREEN 
LDA AUX 
JSR CLEAR sCLEAR AUX SCREEN 
JMP DE 
CLEAR LDA #00 CLEAR SCREEN SUBROUTINE 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY #00 
LDA #00 
CLR STA (LOW),Y 
INY 
BNE CLR 
INC HIGH 
LDA HIGH 
CMP #$40 
BCC CLR1 
RTS 
DE LDA #$60 sLOAD DELAY 
STA DELAY 


48 wkkkkkkkkKK MATN PROGRAM KkkkK KKK 


6049: 20 6B 60 49 START JSR INITIAL 3SET INITIAL BYTE, LINE, DEPTH 
604C: 20 7D 60 50 START1 JSR DRAW 


604F: AD 08 60 51 LDA DELAY 
6052: 20 A8 FC 52 JSR WAIT 
6055: 20 7D 60 53 JSR DRAW 
6058: EE 06 60 54 INC DEPTH 
605B: EE 04 60 55 INC LINEA 
605E: AD 04 60 56 LDA LINEA 
6061: 8D 03 60 57 STA LINE 
6064: C9 B8 58 CMP #$B8 
6066: BO El 59 BGE START 
6068: 4C 4C 60 60 JUMP START1 


6] ee SUBROUTINES siti 
606B: AQ 00 62 INITIAL LDA #$00 


606D: 8D 05 60 63 STA BYTE 

6070: 8D 03 60 64 STA LINE 

6073: 8D 04 60 65 STA LINEA 

6076: 18 66 CLC 

6077: 69 09 67 ADC #$09 ;DEPTH OF SHAPE 
6079: 8D 06 60 68 STA DEPTH 

607C: 60 69 RTS 


70 KRKKKKKKREKKEKEKERKEKKEEK 


71 = =** DRAW SUBROUTINE ** 
607D: A9 00 72 ~DRAW LDA #$00 


607F: 8D 07 60 73 STA XCOUNT 
6082: AC 0560 74 DRAW! LDY BYTE 
6085: AE 03 60 75 LDX LINE 
6088: BD 4B 61 76 LDA HI,X 
6088: 85 1B 77 STA HIGH 
608D: BD 0B 62 78 LDA LO,X 
6090: 85 1A 79 STA LOW 

6092: AE 07 60 80 LDX XCOUNT 
6095: AD 55 CO 81 LDA AUX 

6098: Bl 1A 82 LDA (LOW),Y 
609A: 5D 03 61 83 EOR SHAPE,Xx 
609D: 91 1A 84 STA (LOW),Y 
609F: AD 54 CO 85 LDA MAIN 
60A2: Bl 1A 86 LDA (LOW),Y 
60A4: 5D 04 61 87 EOR SHAPE+1,X 
60A7: 91 1A 88 STA (LOW),Y 
60A9: C8 89 INY 

60AA: AD 55 CO 90 LDA AUX 

60AD: Bl 1A 91 LDA (LOW),Y 
60AF: 5D 05 61 92 EOR SHAPE+2,X 
60B2: 91 1A 93 STA (LOW),Y 
60B4: AD 54 CO 94 LDA MAIN 
60B7: Bl 1A 95 LDA (LOW),Y 
60B9: 5D 06 61 96 EOR SHAPE+3,X 
60BC: 91 1A 97 STA (LOW),Y 
60BE: C8 98 INY 

60BF: AD 55 CO 99 LDA AUX 

60C2: Bl 1A 100 LDA (LOW),Y 
60C4: 5D 07 61 101 EOR SHAPE+4,X 
60C7: 91 1A 102 STA (LOW),Y 
60C9: AD 54 CO 103 LDA MAIN 
60CC: Bl 1A 104 LDA (LOW),Y 
60CE: 5D 08 61 105 EOR SHAPE+5,xX 
60D1: 91 1A 106 STA (LOW),Y 
60D3: C8 107 INY 


6004: AD 55 CO 108 LDA AUX 


SRR eee eee eee eee eee eee e EE EEEEEESEHSEST ESSE HESS EEEEEEEEEEEESSEEEESEEESE EES EE EEEEE EEE E EEE SEES 
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FOR NEXT CYCLE 


60D7: Bl 1A 109 LDA (LOW),Y 

60D9: 5D 09 61 110 EOR SHAPE+6,X 

60DC: 91 1A 111 STA (LOW),Y 

60DE: AD 54 cO 112 LDA MAIN 

60E1: Bl 1A 113 LDA (LOW),Y 

60E3: 5D OA 61 114 EOR SHAPE+7,X 

60E6: 91 1A 115 STA (LOW),Y 

60E8: AD 07 60 116 LDA XCOUNT 

60EB: 18 117 CLC 

60EC: 69 08 118 ADC #$08 

60EE: 8D 07 60 119 STA XCOUNT 

60F1: EE 03 60 120 INC LINE 

60F4: AD 03 60 121 LDA LINE 

60F7: CD 06 60 122 CMP DEPTH 

60FA: 90 86 123 BLT DRAW1 

60FC: AD 04 60 124 LDA LINEA 

60FF: 8D 03 60 125 STA LINE sRESET LINE 

6102: 60 126 RTS 

6103: 00 00 40 127 SHAPE HEX 0000405C3B000000 

6106: 5C 3B 00 00 00 

610B: 00 00 18 128 HEX 00001833664C0000 

610E: 33 66 4C 00 00 

6113: 00 32 66 129 HEX 0032664C19336600 

6116: 4C 19 33 66 00 

611B: 11 22 44 130 HEX 1122440811224408 

611E: 08 11 22 44 08 

6123: 11 10 46 131 HEX 111046701E027308 

6126: 70 1E 02 73 08 

612B: 33 66 4C 132 HEX 33664C1933664C19 

612E: 19 33 66 4C 19 

6133: 00 18 03 133 HEX 0018031002001100 

6136: 10 02 00 11 00 

613B: 00 5C 03 134 HEX 005C03680D002200 

613E: 68 OD 00 22 00 

6143: 00 10 02 135 HEX 001002700E003300 

6146: 70 OE 00 33 00 

HI 
LO 

715 bytes 

Symbol table - numerical order: 
LOW =$1A HIGH =$1B LINE =$6003 
BYTE =$6005 DEPTH =$6006 XCOUNT =$6007 
PGM =$6009 CLEAR =$602A CLR1 =$6032 
DE =$6044 START  =$6049 START1 =$604C 
DRAW =$607D DRAW1 =$6082 SHAPE =$6103 
LO =$620B STORE80 =$C001 COL80 =$CcOOD 
MIXOFF =$C052 MAIN =$C054 AUX =$C055 
AN3 =$CO5E WAIT =$FCA8 


LINEA =$6004 
DELAY =$6008 
CLR =$6036 
INITIAL =$606B 
HI =$614B 


GRAPHICS=$C050 


HIRES 


=$C057 


251 


252 


Curved and 
Diagonal Movement 


Moving up and down and to and fro 
Is easy enough as you well know, 

But moving at an angle 

Can cause quite a tangle 

As you change each column and row. 


U/, until now we've only considered shapes moving either vertically or 
horizontally, but sometime in your career as a graphics computer programmer 
you might want to display other types of movements without having to tilt or 
rotate the monitor. The principle is easy. For vertical movement, we keep the 
screen byte constant and alter the line position; for horizontal movement, the 
line position is kept constant while the screen byte is changed (stop me if I’m 
going too fast). For diagonal or curved movement we change both the screen 
byte and line position for each draw. I told you it was easy. 

Armed with this information we can now move shapes around in any kind of 
meandering path but, in general, pleasant results are obtained only if shapes 
move in some kind of recognizable pattern, either diagonally or in a curve 
described by some type of simple equation (don’t worry, we’re not going to get 
into quantum mechanics or even calculus, but keep in mind that E = mc’). An 
exception to this is when movement in all directions is controlled by a joystick 
or paddles as we saw in Chapter 6 (Program 6-3). 


DIAGONAL MOVEMENT 


POOP e OOH eee Ree EH E eee EEE E TEESE TESTES OEE EEEEEE® 


For any kind of non-vertical movement, there is always a horizontal vector’ 
and so we have to use the horizontal protocol, i.e., seven preshifted shapes. To 
illustrate diagonal movement, we’re going to use Program 5-1 as a starting 
point—it moves a plane shape across the screen. 

For our first example, let’s move the plane down one line for each horizontal 
1 bit move (see Program 13-1). After each draw and erase, we do an INC LINEA 
(remember, we don’t INC LINE because LINE is altered in the draw routine). 
Before going on, we test to see if we’ve reached the bottom of the screen (line 
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#$BA). If we have, we start over. If not, we continue by loading LINE with 
LINEA, adding the shape depth to LINE, and storing in DEPTH (DEPTH has to be 
changed each time the line position is changed). We then continue with the 
usual routine, i.e., next shape number, etc., and also test for the end of the 
screen. In this particular example, the plane will reach the bottom first before 
reaching the end of the screen because there are only 192 lines but 280 
horizontal bit positions. However, we're testing for both bottom and end of 
screen to make the program more generally applicable. 


LOAD SHAPE ADDRESSES 
INTO SHPADR 


DISPLAY AND CLEAR SCREEN 


SET INITIAL LINE NUMBER, BYTE 
POSITION AND DEPTH 


FIRST SHAPE 
LOAD INTO TEMP 
DRAW 


DELAY 


ERASE 
NEXT LINE 
Yes [REACHED BOTTOM? 
N 


No 


No 


NEXT SHAPE 


ALL 7 SHAPES? 
Yes 
NEXT SCREEN BYTE 


lo Yi 
END OF SCREEN? LK 


| RS 
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JPROGRAM 13-1 


:ASM 

1 *) SHAPE DIAGONAL 

2 *2 BYTES WIDE, 5 LINES DEEP 

3 ORG $6000 
6000: 4C 27 60 4 JMP PGM 

5 LINE DS wl 

6 LINEA DS: 2 

7 BYTE DS)» 1 

8 DEPTH DS 1 

9 XCOUNT DS 1 

10  SHPNO OSinel 


11 DELAY DSe fl 
12. ~TEMP DS 15 


13. GRAPHICS = $C050 
14 MIXOFF = $C052 
15 HIRES = $C057 
16 ~=PAGE1 = $C054 
17. —_—xHIGH = $1B 

18 LOW = $1A 

19 WAIT - $FCA8 


20 *LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
21 ¥*CONTINUE FOR ALL 7 SHAPES 


6019: OD 22 SHPADR ODFB_ #<SHAPE1 
601A: 61 23 DFB #>SHAPE1 
601B: 1C 24 DFB #<SHAPE2 
601C: 61 25 DFB #>SHAPE2 
601D: 2B 26 DFB #<SHAPE3 
601E: 61 © 27 DFB #>SHAPE3 
601F: 3A 28 DFB #<SHAPE4 
6020: 61 29 DFB #>SHAPE4 
6021: 49 30 DFB #<SHAPE5 
6022: 61 31 DFB #>SHAPE5 
6023: 58 32 DFB #<SHAPE6 
6024: 61 33 DFB #>SHAPE6 
6025: 67 34 DFB #<SHAPE7 
6026: 61 35 DFB #>SHAPE7 
6027: AD 50 CO 36 PGM LDA GRAPHICS _ ;HIRES,P.1 
602A: AD 52 CO 37 LDA MIXOFF 
602D: AD 57 CO 38 LDA HIRES 
6030: AD 54 CO 39 LDA PAGE1 
6033: A9 00 40 LDA #$00 ;CLEAR SCREEN 1 
6035: 85 1A 41 STA LOW 
6037: AQ 20 42 LDA #$20 
6039: 85 1B 43 STA HIGH 
603B: AO 00 44 CLR1 LDY #$00 
603D: AQ 00 45 LDA #$00 
603F: 91 1A 46 CLR STA (LOW),Y 
6041: C8 47 INY 
6042: DO FB 48 BNE CLR 
6044: E6 1B 49 INC HIGH 
6046: AS 1B 50 LDA HIGH 
6048: C9 40 51 CMP #$40 
604A: 90 EF 52 BLT CLR1 
604C: AQ 60 53 LDA #$60 ;LOAD DELAY 
604E: 8D 09 60 54 STA DELAY 
55 KkkKKKKKKK MAIN PROGRAM kkkkkK KKK 
6051: 20 95 60 56 START JSR INITIAL ;SET INITIAL BYTE, LINE, DEPTH 
6054: AQ 00 57. START1 LDA #$00 ;FIRST SHAPE NUMBER 
6056: 8D 08 60 58 STA SHPNO 
6059: 20 A7 60 59 START2 JSR _ LOADSHP ;LOAD SHAPE INTO TEMP 


ORR eee eee eee ee ee eee eee eee E EEE EH HE EEEEE SHEE SEES SEES EESEE SESE EES EEEEESE ESHEETS EE EEEESEEHEEEEEEE EEE ES 


605C: 
605F : 
6062: 
6065: 
6068: 
606B: 
606E : 
6070: 
6072: 
6075: 
6078: 
6079: 
607B: 
607E: 
6081: 
6084: 
6086: 
6088: 
608B : 
608E : 
6090: 
6092: 


6095: 
6097: 
609A: 
609D: 
60A0: 
60A1: 
60A3: 
60A6: 


60A7: 
60AA: 
60AB: 
60AC: 
60AF : 
60B1: 
60B4: 
60B6: 
60B8: 
60BA: 
60BD: 
60BE: 
60C0: 
60C2: 


60C3: 
60C5: 
60C8: 
60CB: 
60CE: 
60D1: 
60D3: 
60D6: 
60D8: 
60DB: 
60DD: 
60E0: 
60E2: 
60E3: 


JSR DRAW ;DRAW 
LDA DELAY :DELAY 
JSR WAIT 
JSR DRAW ERASE 
INC LINEA 
LDA LINEA 
CMP #$BA 
BLT START3 
JMP START 
START3 STA LINE 
CLC 
ADC #$05 
STA DEPTH 
INC SHPNO ;NEXT SHAPE NUMBER 
LDA SHPNO 
CMP #$07 FINISHED ALL 7 SHAPES? 
BLT START2 ;IF NO, CONTINUE WITH NEXT SHAPE 
INC BYTE IF YES, NEXT BYTE 
LDA BYTE 
CMP #$26 SEND OF SCREEN? 
BLT START1 IF NO, CONTINUE DRAW 
JMP START IF YES, START OVER 
kkkkkkekeeKek SUBROUTINES kkk KK KKK 


INITIAL LDA #$00 
STA BYTE 
STA LINE 
STA LINEA 
CLC 
ADC #$05 DEPTH OF SHAPE 
STA DEPTH 
RTS 
kkkk kk RRR KKK KKK KK 
LOADSHP LDA SHPNO 
ASL 
TAX 
LDA SHPADR,X 
STA LOW 
LDA SHPADR+1,X 
STA HIGH 
LDY #$00 
LOADSHP1 LDA (LOW),Y 
STA TEMP,Y 
INY 
CPY #$0F 
BLT LOADSHP1 
RTS 
kkk kK KK KKK KKK KK KKK KKK 
DRAW LDA #$00 
STA XCOUNT 
DRAW1 LDY BYTE 
LDX LINE 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDX XCOUNT 
LDA (LOW),Y 
EOR TEMP,X 
STA (LOW),Y 
INY 
LDA (LOW),Y 


;LOAD SHAPE INTO TEMP 


Curved and Diagonal Movement 
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Hi-Res Graphics and Animation Using Assembly Language eee cece cee ceeeeeeceececcessescecsesseseeeensseseecencesssssessessercesesecenes 


60E5: 5D 0B 60 121 EOR TEMP+1,X 
60E8: 91 1A 122 STA (LOW),Y 
60EA: C8 123 INY 

60EB: Bl 1A 124 LDA (LOW),Y 
60ED: 5D OC 60 125 EOR TEMP+2,xX 
60FO: 91 1A 126 STA (LOW),Y 
60F2: EE 07 60 127 INC XCOUNT 
60F5: EE 07 60 128 INC XCOUNT 
60F8: EE 07 60 129 INC XCOUNT 
60FB: EE 03 60 130 INC LINE 
60FE: AD 03 60 131 LDA LINE 
6101: CD 06 60 132 CMP DEPTH 
6104: 90 C2 133 BLT DRAW1 
6106: AD 04 60 134 LDA LINEA 
6109: 8D 03 60 135 STA LINE sRESET LINE FOR NEXT CYCLE 
610C: 60 136 RTS 


610D: 02 00 00 137 SHAPE1 HEX 0200000600007E1F00 ;SHAPE TABLES 
6110: 06 00 00 7E 1F 00 

6116: 7E 37 00 138 HEX 7£37007E7F00 

6119: 7E 7F 00 

611C: 04 00 00 139 SHAPE2 HEX 0400000C00007C3F00 
611F: OC 00 00 7C 3F 00 

6125: 7C 6F 00 140 HEX 7C6F007C7F01 

6128: 7C 7F Ol 

612B: 08 00 00 141 SHAPE3 HEX 080000180000787F00 
612E: 18 00 00 78 7F 00 

6134: 78 5F 01 142 HEX 785F01787F03 

6137: 78 7F 03 

613A: 10 00 00 143 SHAPE4 HEX 100000300000707F01 
613D: 30 00 00 70 7F 01 

6143: 70 3F 03 144 HEX 703F03707F07 

6146: 70 7F 07 

6149: 20 00 00 145 SHAPES HEX 200000600000607F03 
614C: 60 00 00 60 7F 03 

6152: 60 7F 06 146 HEX 607F06607F0F 

6155: 60 7F OF 

6158: 40 00 00 147 SHAPE6 HEX 400000400100407F07 
615B: 40 01 00 40 7F 07 

6161: 40 7F OD 148 HEX 407F0D407F 1F 

6164: 40 7F 1F 

6167: 00 01 00 149 SHAPE7 HEX 000100000300007F0F 
616A: 00 03 00 00 7F OF 

6170: 00 7F 1B 150 HEX 007F1B007F 3F 

6173: 00 7F 3F 


HI 
LO 


758 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B LINE =$6003 LINEA =$6004 
BYTE =$6005 DEPTH =$6006 XCOUNT =$6007 SHPNO =$6008 
DELAY =$6009 TEMP =$600A SHPADR =$6019 PGM =$6027 
CLR1 =$603B CLR =$603F START  =$6051 START1 =$6054 
START2 =$6059 START3 =$6075 INITIAL =$6095 LOADSHP =$60A7 
LOADSHP1=$60B8 DRAW =$60C3 DRAW1 =$60C8 SHAPE1 =$610D 
SHAPE2 =$611C SHAPE3 =$612B SHAPE4 =$613A SHAPE5 =$6149 
SHAPE6 =$6158 SHAPE7 =$6167 HI =$6176 LO =$6236 
GRAPHICS=$C050 MIXOFF =$C052 PAGE1 =$C054 HIRES =$C057 


WAIT =$FCA8 


ee eee ee eee ee eee eee eee OER EERE EEE EEE SESE EEE EES EEE ESSERE REESE EEE EE EEE EEE EEE EEE EEEEEEeEES 


We can make the plane drop at an even steeper angle simply by increasing 
the line positions more often than once every horizontal move. We would do 
INC LINEA twice, or three times, or however many we want before going on to 
the next draw, but keep in mind that we want to keep the line jumps to a 
reasonably small number to maintain smooth animation. We could, with a more 
complicated protocol, draw the shape at each line position instead of after each 
every two or three line moves, but this results in a rather noticeable jerky 
motion. Line jumps between draws result in a more acceptable animation as 
long as the distance between draws is kept small (large jumps are okay for fast 
moving shapes, as we'll see below). 

Suppose now we want the plane to drop at a shallower angle, let’s say one 
line for every two horizontal moves. The next program (13-2) illustrates how 
this is done. We set up a counter labeled DE and set it to zero in the INITIAL 
subroutine. After the first draw and erase, DE is incremented by 1. If DE is less 
than 2 (line 67), we continue drawing on the same line. After the shape has 
been drawn and erased two times, DE = 2 and the branch at line 68 is not 
taken; DE is zeroed, LINEA is incremented and, if the bottom has not yet been 
reached, drawing continues, now one line down. Note that each time LINEA is 
changed, LINE is loaded with LINEA and DEPTH is adjusted (line 76). We can 
easily make the shape fall in a shallower angle by changing the CMP value in line 
67. Thus, if we do a CMP #$03, the shape will move three horizontal positions 
between each line change. 


LOAD SHAPE ADDRESSES 
INTO SHPADR 
DISPLAY AND CLEAR SCREEN 


SET INITIAL LINE NUMBER, BYTE 
POSITION AND DEPTH & SET DE = 0 


FIRST SHAPE 
LOAD INTO TEMP 


No 


NEXT SHAPE 


ALL 7 SHAPES? 
NEXT SCREEN BYTE 
END OF SCREEN? 


NEXT LINE 
REACHED BOTTOM? 
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JPROGRAM 
:ASM 


6000: 4C 


601A: 20 
601B: 61 
601C: 2F 
601D: 61 
BOLE: -3E 
601F: 61 
6020: 4D 
6021: 61 
6022: 5C 
6023: 61 
6024: 6B 
6025: 61 
6026: 7A 
6027: 61 
6028: AD 
602B: AD 
602E: AD 
6031: AD 
6034: AQ 
6036: 85 
6038: A9 
603A: 85 
603C: AO 
603E: A9 
6040: 91 
6042: C8 
6043: DO 
6045: E6 
6047: AS 
6049: C9 
604B: 90 
604D: A9 
604F: 8D 


13-2 


28 60 


WOONDNHPWNHHE 


50 CO 37 
52 CO 38 
57 CO 39 
54 CO 40 


09 60 55 


*1 SHAPE DIAGONAL 2 HORIZ. 1 VERT. 
*2 BYTES WIDE, 5 LINES DEEP 


ORG $6000 

JUMP =PGM 
LINE DS 1 
LINEA BS tt 
BYTE DS. 1 
DEPTH DSy gi 1 
XCOUNT DS 1 
SHPNO DS; I 
DELAY DS. 1 
DE DS «(1 
TEMP DS: 115 
GRAPHICS = $C050 
MIXOFF = $C052 
HIRES = $C057 
PAGE1 = $C054 
HIGH = $1B 
LOW = $1A 
WAIT = $FCA8 


*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
*CONTINUE FOR ALL 7 SHAPES 
SHPADR DFB_ #<SHAPE1 
DFB #>SHAPE1 
DFB #<SHAPE2 
DFB #>SHAPE2 
DFB #<SHAPE3 
DFB #>SHAPE3 
DFB #<SHAPE4 
DFB #>SHAPE4 
DFB #<SHAPE5 
DFB #>SHAPE5 
DFB #<SHAPE6 
DFB #>SHAPE6 
DFB #<SHAPE7 
DFB #>SHAPE7 
PGM LDA GRAPHICS — ;HIRES,P.1 
LDA MIXOFF 
LDA HIRES 
LDA PAGE1 
LDA #$00 ;CLEAR SCREEN 1 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY #$00 
LDA #$00 
CLR STA (LOW),Y 
INY 
BNE CLR 
INC HIGH 
LDA HIGH 
CMP #$40 
BLT CLR1 
LDA #$60 ;LOAD DELAY 
STA DELAY 


POR eee Hee eee ee HEHE EEE HEHEHE EE EEE EOE EERE EEE EEE HE EEEEEE EEE EE EEE SE EEE EEE EEE SESE EEE EEE EEEES 


6052: 
6055: 


6057: 
605A: 


605D: 
6060: 
6063: 
6066: 
6069: 
606C: 
606F : 
6071: 
6073: 
6075: 
6078: 
607B: 
607E: 
6080: 
6082: 
6085: 
6088: 
6089: 
608B : 
608E: 
6091: 
6094: 
6096: 
6098: 
609B: 
609E: 
60A0: 
60A2: 


60A5: 
60A7: 
60AA: 
60AD: 
60B0: 
60B3: 
60B4: 
60B6: 
60B9: 


60BA: 
60BD: 
60BE: 
60BF : 
60C2: 
60C4: 
60C7: 
60C9: 
60CB: 
60CD: 
60D0: 
60D1: 
60D3: 
60D5: 


akkkkkkkkKK MATN PROGRAM kkk KKKRKKKK 


START JSR 
START1L LDA 
STA 
START2 JSR 
JSR 
LDA 
JSR 
JSR 
INC 
LDA 
CMP 
BNE 
LDA 
STA 
INC 
LDA 
CMP 
BLT 
JMP 
START4 = STA 
CLC 
ADC 
STA 
START3 — INC 
LDA 
CMP 
BLT 
INC 
LDA 
CMP 
BLT 


INITIAL 3SET INITIAL BYTE, LINE, DEPTH 
#$00 3F IRST SHAPE NUMBER 

SHPNO 

LOADSHP ;LOAD SHAPE INTO TEMP 

DRAW ;DRAW 

DELAY ;DELAY 

WAIT 

DRAW ;ERASE 

DE ;NEXT LINE EVERY 

DE TWO SHAPES 


#$BA ;TEST FOR BOTTOM 


SHPNO ;NEXT SHAPE NUMBER 


#$07 3FINISHED ALL 7 SHAPES? 
START2 ;1F NO, CONTINUE WITH NEXT SHAPE 
BYTE ;1F YES, NEXT BYTE 


#$26 3END OF SCREEN? 
START1 ;1F NO, CONTINUE DRAW 
START ;IF YES, START OVER 


KkKKKKKKKK SUBROUTINES kkk KKK KKK 


INITIAL LDA 
STA 
STA 
STA 
STA 
CLC 
ADC 
STA 
RTS 


#$00 


#$05 DEPTH OF SHAPE 
DEPTH 


KRKKKKKKKKKKKKKKKKKKKKK 


LOADSHP LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LOADSHP1 LDA 
STA 
INY 
CPY 
BLT 
RTS 


SHPNO ;LOAD SHAPE INTO TEMP 


SHPADR , X 
LOW 
SHPADR+1,X 
HIGH 

#$00 
(LOW) ,Y 
TEMP, Y 


#$0F 
LOADSHP1 
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114 KRKKKKEKEKEKKKEKKKKKKKEKK 


60D6: A9 00 115 DRAW LDA #$00 


6008: 8D 07 60 116 STA XCOUNT 
60DB: AC 05 60 117 DRAW] LDY BYTE 
60DE: AE 03 60 118 LDX LINE 
60E1: BD 89 61 119 LDA HI,X 
60E4: 85 1B 120 STA HIGH 
60E6: BD 49 62 121 LDA LO,X 
60E9: 85 1A 122 STA LOW 
60EB: AE 07 60 123 LDX XCOUNT 
60EE: Bl 1A 124 LDA (LOW),Y 
60FO: 5D 0B 60 125 EOR TEMP,X 
60F3: 91 1A 126 STA (LOW),Y 
60F5: C8 127 INY 

60F6: Bl 1A 128 LDA (LOW),Y 
60F8: 5D OC 60 129 EOR TEMP+1,Xx 
60FB: 91 1A 130 STA (LOW),Y 
60FD: C8 131 INY 

60FE: Bl 1A 132 LDA (LOW),Y 
6100: 5D OD 60 133 EOR TEMP+2,X 
6103: 91 1A 134 STA (LOW),Y 
6105: EE 07 60 135 INC XCOUNT 
6108: EE 07 60 136 INC XCOUNT 
610B: EE 07 60 137 INC XCOUNT 
610E: EE 03 60 138 INC LINE 
6111: AD 03 60 139 LDA LINE 
6114: CD 06 60 140 CMP DEPTH 
6117: 90 C2 141 BLT DRAW 
6119: AD 04 60 142 LDA LINEA 
611C: 8D 03 60 143 STA LINE sRESET LINE FOR NEXT CYCLE 
611F: 60 144 RTS 


6120: 02 00 00 145 SHAPE1 HEX 0200000600007E1F00 ;SHAPE TABLES 
6123: 06 00 00 7E 1F 00 

6129: 7E 37 00 146 HEX 7E37007E7F00 

612C: 7E 7F 00 

612F: 04 00 00 147 SHAPE2 HEX 0400000C00007C3F00 
6132: OC 00 00 7C 3F 00 

6138: 7C 6F 00 148 HEX 7C6FOO7C7F01 

613B: 7C 7F 01 

613E: 08 00 00 149 SHAPE3 HEX 080000180000787F00 
6141: 18 00 00 78 7F 00 

6147: 78 5F 01 150 HEX 785F01787F03 

614A: 78 7F 03 

614D: 10 00 00 151 SHAPE4 HEX 100000300000707F01 
6150: 30 00 00 70 7F 01 

6156: 70 3F 03 152 HEX 703F03707F07 

6159: 70 7F 07 

615C: 20 00 00 153 SHAPES HEX 200000600000607F 03 
615F: 60 00 00 60 7F 03 

6165: 60 7F 06 154 HEX 607F06607F OF 

6168: 60 7F OF 

616B: 40 00 00 155 SHAPE6 HEX 400000400100407F07 
616E: 40 01 00 40 7F 07 

6174: 40 7F OD 156 HEX 407F0D407F 1F 

6177: 40 7F 1F 

617A: 00 01 00 157 SHAPE7 HEX 000100000300007F OF 
617D: 00 03 00 00 7F OF 


PPPPPee ee eereeeeeeeeree reer errr reer reer eee eee eee eee eee eee eee eee eee Curved and Diagonal Movement 


6183: 00 7F 1B 158 HEX 007F1B007F 3F 
6186: 00 7F 3F 


777 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B LINE =$6003 LINEA =$6004 
BYTE =$6005 DEPTH =$6006 XCOUNT =$6007 SHPNO =$6008 
DELAY =$6009 DE =$600A TEMP =$600B SHPADR =$601A 
PGM =$6028 CLR1 =$603C CLR =$6040 START =$6052 
START1 =$6055 START2 =$605A START4 =$6085 START3 =$608E 
INITIAL =$60A5 LOADSHP =$60BA LOADSHP 1=$60CB DRAW =$60D6 
DRAW1 =$60DB SHAPE1 =$6120 SHAPE2 =$612F SHAPE3 =$613E 
SHAPE4 =$614D SHAPES =$615C SHAPE6 =$616B SHAPE7 =$617A 
HI =$6189 LO =$6249 GRAPHICS=$C050 MIXOFF =$C052 
PAGEL =$C054 HIRES  =$C057 WAIT =$FCA8 
CURVED MOVEMENT 


In general, when moving shapes that are meant to represent some object in 
the real world, such as planes, bullets, bombs, or what have you, realism is 
effected only when the path represents how such shapes actually move. This 
usually means the path must follow some sort of defined curve such as a circle, 
parabola, etc. Of course, if you’re moving a shape that looks like a snigglehof, you 
can twist it around any way you want, but the example I’m going to use is falling 
bombs, not only because it fits in well with the game program, but also because 
it expresses my militaristic aggression (you'll get this way, too, after a few bouts 
with assembly language programming ). 


Hi-Res Graphics and Animation Using Assembly Language ................c0.cceeceecsecsesceccescecceeececeeceueceecsecesecuecescencens 


Actually, the falling bomb example is applicable to any falling object. When 
something falls as a result of the force of gravity, it is constantly accelerating; that 
is, its vertical drop per constant horizontal displacement continually increases 
until it hits something or is slowed by air resistance. Let’s put this in the form of 
equations to see how it works. We calculate new line positions as follows: 


VX = VX +1 
LINE = LINE + VX 


The following table illustrates how line positions change for each constant 
horizontal move. 


Horizontal Position Line VX New Line 

0 0 0 0 

1 0 1 1 

7 1 2 3 

3 3 3 6 

4 6 a 10 

5 10 5 15 

6 15 6 21 
262 Obviously what’s happening is that the distance between lines is constantly 
ie increasing by a value equal to VX and the resulting path describes a falling object 


exactly. Now let’s see how we can put this to work in a program. 

First of all, I've decided to draw the bomb at each new line position rather 
than continuously at each screen line; i.e., the bomb is drawn only after each line 
jump regardless of the distance involved. What this means is that as the bomb 
approaches the bottom of the screen, there will be rather large line intervals 
between draws, but this is just what we want. The bomb should be moving faster 
as it approaches the bottom and the larger line jumps provide just this illusion. 
Large jumps are appropriate for fast moving shapes. Look at the bullet moves in 
the game program— here, too, the shape is moving 1 byte (eight lines) at a time. 
Note also that if the bomb were drawn at every line position and not just at the 
new lines, the large jumps from new line to new line would be eliminated, but 
the result would be jerky animation and the illusion of increasing speed would 
be destroyed—the bomb would appear to be moving at a constant (jerky) 
speed all the way down. The only way to increase the apparent velocity in this 
case would be to shorten the delay times as the bomb falls, a tricky and unneces- 
sary exercise, and one that wouldn’t eliminate the jerky animation anyway. 

The horizontal displacement of the bomb as it falls can vary from 1 bit to 1 
byte or any other value you want. The displacement will not affect the 
acceleration illusion (ihis depends on the line changes), but only the steepness 
or shallowness of the fall. I've chosen a 1-byte move because it looks right. A 
1-byte horizontal move also simplifies the program considerably because we 
need only one shape and not seven. The same shape is plotted at each new 
screen byte position. For shorter moves, we would have to use the seven 
preshifted shapes and change line positions after testing SHPNO for the desired 
values. 
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Curved and Diagonal Movement 


In the MAIN PROGRAM of Program 13-3, we draw and erase, INC BYTE, add 
1 to VX, then add the value in LINE to VX and store the result in LINE and 
LINEA. We adjust DEPTH for the new line, test for the bottom of the screen, and 
then continue drawing. 


DISPLAY AND 
CLEAR SCREEN 


SET INITIAL LINE NUMBER, BYTE 
POSITION AND DEPTH 


NEXT SCREEN BYTE 


NEW LINE; VX = VX + 1 
LINE = LINE + VX 


REACHED BOTTOM? 


JPROGRAM 13-3 


: ASM 


6000: 


600A: 
600D: 
6010: 
6013: 
6016: 


1 * FALLING BOMBS * 
2 KEKKKKKKKKKEKEKEKKKKK KK KK KKK 
3 ORG $6000 
4C 0A 60 4 JUMP PGM 
5 XCOUNT DS 1 
6 BYTE DS: 2 
7 LINE DS. Aj 
8 LINEA US: gE 
9 DEPTH OS: al 
10 DELAY DS: A 
Li VK DS” cE 
12 GRAPHICS = $C050 
13. MIXOFF = $C052 
14 ~~ HIRES = $C057 
15 ~PAGE1 = $C054 
16 HIGH = $1B 
17 —LOW = $1A 
18 ~=WAIT = $FCA8 
AD 50 CO 19  PGM LDA GRAPHICS - ;HIRES,P.1 
AD 52 CO 20 LDA MIXOFF 
AD 57 CO 21 LDA HIRES 
AD 54 CO 22 LDA PAGE1 
A9 00 23 LDA #00 ;CLEAR SCREEN 1 


Bs 


|: 


6018: 
601A: 
601C: 
601E: 
6020: 
6022: 
6024: 
6025: 
6027: 
6029: 
602B: 
602D: 
602F: 
6031: 


6034: 
6037: 
603A: 
603D: 
6040: 
6043: 
6046: 
6049: 
604A: 
604C: 
604F: 
6052: 
6055: 
6058: 
605A: 
605D: 
605F: 
6061: 


6064: 
6066: 
6069: 
606B: 
606E: 
6071: 
6072: 
6074: 
6077: 
6079: 
607C: 


607D: 
607F: 
6082: 
6085: 
6088: 
608B: 
608D: 
6090: 
6092: 
6095: 
6097: 
609A: 
609C: 
609F: 
60A2: 


STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
BNE 
INC 
LDA 
CMP 
BLT 


$26 
#$20 
$27 
#00 
#00 
($26) ,Y 


CLR 
$27 
$27 
#$40 
CLR1 

LDA #$BO 

STA DELAY 
*xk*k* MAIN PROGRAM ***** 
START JSR INITIAL 
START1 JSR DRAW 

LDA DELAY 

JSR WAIT 

JSR DRAW 

INC BYTE 

LDA VX 

CLE 

ADC #01 

STA VX 

ADC LINE 

STA LINE 

STA LINEA 

ADC #03 

STA DEPTH 

CMP #$BA 

BGE START 

JUMP START1 
*RRE SUBROUTINES ***2* 
INITIAL LDA #$00 

STA BYTE 

LDA #00 

STA LINE 

STA LINEA 

CLC 

ADC 


CLR1 
CLR 


#03 
STA DEPTH 
LDA #00 
STA VX 
RTS 
Kkkkk ke RRR KKK KKK KKK 
DRAW LDA #00 
STA XCOUNT 
LDY BYTE 
LDX LINE 
LDA HI,Xx 
STA HIGH 
LDA LO,x 
STA LOW 
LDX XCOUNT 
LDA (LOW),Y 
EOR SHAPE,X 
STA (LOW),Y 
INC XCOUNT 
INC LINE 
LDA LINE 


DRAW1 


Sete eee eee eeeeeeee 


Pee e eee meee eee eee eee a eee eee eae eeeeeeessssseuesesess 


;LOAD TIME DELAY 


;SETUP BYTE,LINE & DEPTH 
;DRAW SHAPE 
;DELAY 


sERASE SHAPE 


NEXT BYTE 
;SET NEW LINE 


;NEW LINE 
3ADD DEPTH OF SHAPE TO NEW LINE 
31S LINE AT BOTTOM OF SCREEN? 


;IF YES, DRAW FROM INITIAL VALUES 
;IF NO, DRAW NEXT LINE, NEXT BYTE 


ed deneedseceececevecsesesonsececcssececeesesancenecesesecseueeseeeeensesesecscscsceseseescsesoceesceeseee Curved and Diagonal Movement 


60A5: CD 07 60 85 CMP DEPTH 

60A8: 90 D8 86 BLT DRAW1 

60AA: AD 06 60 87 LDA LINEA 

60AD: 8D 05 60 88 STA LINE 

60B0: 60 89 RTS 

60B1: 07 1E 07 90 SHAPE HEX 071E07 ;SHAPE TABLE 
HI 
LO 

564 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B XCOUNT =$6003 BYTE =$6004 
LINE =$6005 LINEA =$6006 DEPTH =$6007 DELAY =$6008 
VX =$6009 PGM =$600A CLR1 =$601E CLR =$6022 
START  =$6034 START1 =$6037 INITIAL =$6064 DRAW =$607D 
DRAW1 =$6082 SHAPE =$60B1 HI =$60B4 LO =$6174 
GRAPHICS=$C050 MIXOFF =$C052 PAGE1  =$C054 HIRES  =$C057 
WAIT =$FCA8 


In this program, once the bomb has reached the bottom, we start over, but 
we can insert any other routine here, such as an explosion, decrement score, etc. 
If we want an explosion—for example, when the bomb reaches the screen 
bottom—we need only test for the bottom line of the screen and jump to an 
explosion routine. If we want to test for the bomb hitting the man in the game 
program, we would have to include a collision test for the bomb itself, being 
careful to calculate just which line or group of lines the bomb would reach 
when hitting the man. To distinguish between hitting bottom or hitting the man, 
we need only determine at which line the collision occurred, as the bottom line 
and the man occupy different line positions. 

Finally, one can add more realism to falling shapes by simulating the effect of 
air resistance. At some point in an object’s fall, air resistance will cause the 
acceleration to cease and the object will fall at a constant speed. We can effect 
this simulation by not allowing VX to go above a certain value—when VX 
remains constant, the line intervals will then also be constant. A routine to 
accomplish this would be: 


LDA VX 

CMP #$04 

BGE CONT 

CLC 

ADC #$01 

STA VX 
CONT CLC 

ADC LINE 

etc. 


LE: 


LE: 


Drawing over Backgrounds 


A computer artist named Pound 
Drew a woman shape nicely round. 
Her repute was not well, 

And just so you could tell, 

He used an unsavory background. 


SCCSHSSOSOSOSSSOSESESE 


B ackgrounds can enhance any program displaying hi-res graphics, not only 
game programs. A background can consist of stationary shapes (clouds or stars 
for a sky scene, for example) or moving shapes where collisions are not desired 
(shapes passing in the night?). Drawing a shape behind or in front of another 
shape can create the illusion of depth. In addition, one can use the whole screen 
as a background. For example, if we load the Accumulator with #$7F instead of 
#$00 in the clear screen routine, we can draw black shapes on a white 
background. Similarly, we can produce whole screen color backgrounds with the 
clear screen routine by LDAing with the appropriate byte; #$55 will produce a 
violet screen, and so on. 


WHITE SHAPES AND BACKGROUNDS 


TORO Reem ee ee eee eee eee eee eee e eee se eee eeeeeeeeeeees 


The trick to drawing over backgrounds is to have the object and the 
background retain their original shapes following draw-erase cycles. The easiest 
way to do this is to use EOR for both drawing and erasing, i.e., the usual DRAW- 
ERASE protocol. Let’s see what happens when we EOR a shape with a 
background: 


le ele at Background 

0011000 EOR Shape 

TOO #1 Background with shape in black 
0011000 EOR Shape (erase) 


Ba A es Background restored 


PITT errr rere re ee Drawing over Backgrounds 


The result is a black shape surrounded by the white background, producing 
what might be called a “negative.” This actually works quite well if we want the 
object to appear to be in front of the background as opposed to behind it. The 


effect is illustrated in the following figure. 


To see how this looks in a program, run Program 14-1, which is the same as 
Program 4-1, except a box has been drawn in the path of the person shape. 


JPROGRAM 14-1 


7 ASM 


6000: 4C OA 60 


600A: 
600D: 
6010: 
6013: 
6016: 
6018: 
601A: 
601C: 


AD 
AD 
AD 
AD 
AQ 
85 
AQ 
85 


50 
52 
57 
54 
00 
1A 
20 
1B 


CO 
co 
CO 
CO 


WOOAONDOPWNHrHE 


| | 
Ce a, 
| | 


** WHITE SHAPE & BACKROUND * NEGATIVE EFFECT 


KKKKKKKKKKKEKEKEKREKREEKREEKKKKK 


*SHAPE IS 1 BYTE WIDE BY 6 BYTES DEEP 


KEKKKKKKEEKEKEKEKKKK KKK KKK 


ORG 
JMP 
XCOUNT DS 
BYTE DS 
LINE DS 
LINEA DS 
DEPTH DS 
DELAY DS 
SDEPTH DS 
GRAPHICS = 
MIXOFF = 
HIRES = 
PAGE1 = 
HIGH = 
LOW = 
WAIT = 
PGM LDA 
LDA 
LDA 
LDA 
LDA 
STA 
LDA 


$6000 
PGM 


$FCA8 

GRAPHICS _ ;HIRES,P.1 
MIXOFF 

HIRES 

PAGE 1 

#$00 ;CLEAR SCREEN 1 
LOW 

#$20 

HIGH 


267 


Be 


601E: AO 00 29 CLR1 LDY #$00 


6020: A9 00 30 LDA #$00 
6022: 91 1A 31 CLR STA (LOW),Y 
6024: C8 32 INY 
6025: DO FB 33 BNE CLR 
6027: E6 1B 34 INC HIGH 
6029: A5 1B 35 LDA HIGH 
602B: C9 40 36 CMP #$40 
602D: 90 EF 37 BLT CLR1 
602F: AQ 80 38 LDA #$80 ;LOAD TIME DELAY 
6031: 8D 08 60 39 STA DELAY 
40 ** DRAW WHITE BOX 
6034: AQ 5A 41 LDA #$5A 
6036: 8D 09 60 42 STA SDEPTH 
6039: AO 10 43 LDY #$10 
603B: AQ 50 44 LDA #$50 
603D: 8D 05 60 45 STA LINE 
6040: AE 05 60 46 = ST LDX LINE 
6043: BD CC 60 47 LDA HI,X 
6046: 85 1B 48 STA HIGH 
6048: BD 8C 61 49 LDA LO,X 
604B: 85 1A 50 STA LOW 
604D: AQ 7F 51 LDA #$7F 
604F: 91 1A 52 STA (LOW),Y 
6051: EE 05 60 53 INC LINE 
6054: AD 05 60 54 LDA LINE 
6057: CD 09 60 55 CMP SDEPTH 
605A: 90 E4 56 BLT ST 


57 ke MATIN PROGRAM totic 
605C: 20 84 60 58 START JSR INITIAL sSETUP BYTE,LINE & DEPTH 


605F: 20 98 60 59 START1 JSR DRAW ;DRAW SHAPE 

6062: AD 08 60 60 LDA DELAY ;DELAY 

6065: 20 A8 FC 61 JSR WAIT 

6068: AD 06 60 62 LDA LINEA 

606B: 8D 05 60 63 STA LINE 

606E: 20 98 60 64 JSR DRAW sERASE SHAPE 

6071: EE 07 60 65 INC DEPTH ;NEXT DEPTH 

6074: EE 06 60 66 INC LINEA & NEXT LINE 

6077: AD 06 60 67 LDA LINEA 

607A: 8D 05 60 68 STA LINE 

607D: C9 BB 69 CMP #$BB 31S LINE AT BOTTOM OF SCREEN? 
607F: BO DB 70 BGE START 31F YES, DRAW FROM INITIAL VALUES 
6081: 4C 5F 60 71 JUMP START1 31F NO, DRAW NEXT LINE 


72 0 eke SUBROUTINES toe 
6084: AY 10 73, INITIAL LDA #$10 


6086: 8D 04 60 74 STA BYTE ;SET STARTING BYTE 

6089: A9 00 15 LDA #$00 

608B: 8D 05 60 76 STA LINE 3SET STARTING LINE 

608E: 8D 06 60 77 STA LINEA 

6091: 18 78 CLC 

6092: 69 06 79 ADC #$06 3ADD DEPTH OF SHAPE TO LINE 
6094: 8D 07 60 80 STA DEPTH 

6097: 60 81 RTS 

6098: A9 00 82 DRAW LDA #$00 

609A: 8D 03 60 83 STA XCOUNT ;ZERO XCOUNT 

609D: AC 04 60 84 _  DRAW1 LDY BYTE ;LOAD BYTE 

60A0: AE 05 60 85 LDX LINE ;LOAD LINE 

60A3: BD CC 60 86 LDA HI,X ;LOAD LINE ADDRESS INTO HIGH,LOW 
60A6: 85 1B 87 STA HIGH 

60A8: BD 8C 61 88 LDA LO,X 


60AB: 85 1A 89 STA LOW 


wc dia saislarslaceje'nisinibinve nivlnleie wie cisibiscecisi cle 0S) CESSES US ses USS UNES Ro eee RE Seb anes vena Walndnlsla ase Cea ee SGN eN ONT Rs eeeRe Drawing over Backgrounds 


60AD: AE 03 60 90 
60B0: Bl 1A 91 
60B2: 5D C6 60 92 
60B5: 91 1A 93 
60B7: EE 03 60 94 
60BA: EE 05 60 95 
60BD: AD 05 60 96 
60C0: CD 07 60 97 
60C3: 90 D8 98 
60C5: 60 99 


60C6: 08 3E 5D 100 SHAPE 


60C9: 1C 14 22 


588 bytes 


LDX XCOUNT LOAD X WITH XCOUNT 

LDA (LOW),Y | ;GET BYTE FROM SCREEN 

EOR SHAPE,X  ;EOR BYTE FROM SHAPE ADDRESS+X 
STA (LOW),Y | ;PLOT BYTE 


INC XCOUNT 
INC LINE 3NEXT LINE 
LDA LINE 
CMP DEPTH 3FINISH SHAPE? 
BLT DRAW1 ;1F NO, DRAW NEXT LINE 
RTS ;IF YES, NEXT DRAW CYCLE 
HEX 083E5D1C1422 ;SHAPE TABLE 
HI 
LO 


Symbol table - numerical order: 


LOW =$1A 
LINE =$6005 
SDEPTH =$6009 


ST =$6040 
DRAW =$6098 
LO =$618C 


HIRES  =§$C057 


As you may have already guessed, the DRAW-DRAW protocol is inappropriate 
for drawing over backgrounds, because whatever background is in the screen 
byte will be erased by the shape byte, as there is no restoring function. Try 
Program 14-2, which is the same as Program 4-3 (DRAW-DRAW ) except for a box 


HIGH =$1B XCOUNT =$6003 BYTE =$6004 
LINEA =$6006 DEPTH =$6007 DELAY =$6008 
PGM =$600A CLR1 =$601E CLR =$6022 
START  =$605C START1 =$605F INITIAL =$6084 
DRAW1 =$609D SHAPE  =$60C6 HI =$60CC 
GRAPHICS=$C050 MIXOFF =$C052 PAGE1 =$C054 
WAIT =$FCA8 


in the person’s path—the box is erased as the person shape passes through it. 


JPROGRAM 14-2 
: ASM 


6000: 4C OA 60 


WOMONDNPWNMH 


20 
600A: AD 50 CO 21 
600D: AD 52 CO 22 


** WHITE SHAPE & BACKROUND * DRAW-DRAW 


KKKKKKKKKKKKKKKKKKEKKEKKKKKKKEK 


*SHAPE IS 1 BYTE WIDE BY 7 BYTES DEEP 


KKKKKKKEKKEKKEEKEEKEKKKKKK KKK 


ORG $6000 

JMP PGM 
XCOUNT DS 1 
BYTE DS 1 
LINE DS; *k 
LINEA DS 1 
DEPTH DS: 1 
DELAY DS 1 
SDEPTH DS 1 
GRAPHICS = $C050 
MIXOFF == $C052 
HIRES = $C057 
PAGE1 = $C054 
HIGH = $1B 
LOW = $1A 
WAIT = $FCA8 
PGM LDA GRAPHICS — ;HIRES,P.1 

LDA MIXOFF 


: 


Hi-Res Graphics and Animation Using Assembly Language O00 eee ecccceseeseeceeneeececeesecceseseceseescccedeccesesecesedccsessscceeces 


6010: AD 57 CO 23 LDA HIRES 
6013: AD 54 CO 24 LDA PAGE1 
6016: A9 00 25 LDA #$00 ;CLEAR SCREEN 1 
6018: 85 1A 26 STA LOW 
601A: A9 20 27 LDA #$20 
601C: 85 1B 28 STA HIGH 
601E: AO 00 29 «CLRI1 LDY #$00 
6020: A9 00 30 LDA #$00 
6022: 91 1A 31 CLR STA (LOW),Y 
6024: C8 32 INY 
6025: DO FB 33 BNE CLR 
6027: £6 1B 34 INC HIGH 
6029: AS 1B 35 LDA HIGH 
602B: C9 40 36 CMP #$40 
602D: 90 EF 37 BLT CLR1 
602F: AQ 80 38 LDA #$80 ;LOAD TIME DELAY 
6031: 8D 08 60 39 STA DELAY 
40 ** DRAW WHITE BOX 
6034: AQ 5A 41 LDA #$5A 
6036: 8D 09 60 42 STA SDEPTH 
6039: AO 10 43 LDY #$10 
603B: A9 50 aa LDA #$50 
603D: 8D 05 60 45 STA LINE 
6040: AE 05 60 46 = ST LDX LINE 
6043: BD F5 60 47 LDA HI,X 
6046: 85 1B 48 STA HIGH 
270 6048: BD B5 61 49 LDA LO,X 
igt 604B: 85 1A 50 STA LOW 
604D: AQ 7F 51 LDA #$7F 
604F: 91 1A 52 STA (LOW),Y 
6051: EE 05 60 53 INC LINE 
6054: AD 05 60 54 LDA LINE 
6057: CD 09 60 55 CMP SDEPTH 
605A: 90 E4 56 BLT. <SI 


57 eee MAIN PROGRAM #33 
605C: 20 7B 60 58 START JSR INITIAL sSETUP BYTE,LINE & DEPTH 


605F: 20 8F 60 59 START1 JSR DRAW ;DRAW SHAPE 

6062: AD 08 60 60 LDA DELAY ;DELAY 

6065: 20 A8 FC 61 JSR WAIT 

6068: EE 07 60 62 INC DEPTH ;NEXT DEPTH 

606B: EE 06 60 63 INC LINEA & NEXT LINE 

606E: AD 06 60 64 LDA LINEA 

6071: 8D 05 60 65 STA LINE 

6074: C9 BA 66 CMP #$BA 31S LINE AT BOTTOM OF SCREEN? 
6076: BO 43 67 BGE ERASE ;IF YES, ERASE SHAPE, START OVER 
6078: 4C 5F 60 68 JMP START1 ;1F NO, DRAW NEXT LINE 


69 Re SUBROUTINES sot iiiae 
607B: AQ 10 70 INITIAL LDA #$10 


607D: 8D 04 60 71 STA BYTE ;SET STARTING BYTE 
6080: A9 00 72 LDA #$00 

6082: 8D 05 60 73 STA LINE 3SET STARTING LINE 
6085: 8D 06 60 74 STA LINEA 

6088: 18 75 CLE 

6089: 69 07 76 ADC #$07 ;ADD DEPTH OF SHAPE TO LINE 
608B: 8D 07 60 77 STA DEPTH 

608E: 60 78 RTS 

608F: A9 00 79 ~~ ~DRAW LDA #$00 

6091: 8D 03 60 80 STA XCOUNT ;ZERO XCOUNT 

6094: AC 04 60 81  DRAW1 LDY BYTE ;LOAD BYTE 

6097: AE 05 60 82 LDX LINE ;LOAD LINE 


609A: BD F5 60 83 LDA HI,X ;LOAD LINE ADDRESS INTO HIGH,LOW 


<Ks'n de 0 0 ols b:5'ein 0,c1Gle o's ole sicieic sisig clele aie e'sle\alaieiW's siete ele\e(s sie Wslaeis oe nisin eee seit so'ees'e sie sigie seis eueeuiaie(eteweleeescegeiaession Drawing over Backgrounds 


609D: 85 
609F: BD 
60A2: 85 
60A4: AE 
60A7: BD 
60AA: 91 
60AC: EE 
60AF: EE 
60B2: AD 
60B5: CD 
60B8: 90 
60BA: 60 
60BB: CE 
60BE: AQ 
60CO: 8D 
60C3: AC 
60C6: AE 
60C9: BD 
60CC: 85 
60CE: BD 
60D1: 85 
60D3: AE 
6006: Bl 
60D8: 5D 
60DB: 91 
60DD: EE 
60E0: EE 
60E3: AD 
60E6: CD 
60E9: 90 
60EB: 4C 
60EE: 00 
60F1: 5D 


629 bytes 


60 114 
3E 115 
14 22 


ERASE 


ERASE1 


SHAPE 


HI 
LO 


STA 
LDA 
STA 
LDX 
LDA 
STA 
INC 
INC 
LDA 
CMP 
BLT 
RTS 
DEC 
LDA 
STA 
LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
EOR 
STA 
INC 
INC 
LDA 
CMP 
BLT 
JMP 
HEX 


Symbol table - numerical order: 


DRAW 
SHAPE 
MIXOFF 


The “negative” effect is sometimes 


=$1A 

=$6005 
=$6009 
=$6040 
=$608F 
=$60EE 
=$C052 


as illustrated here. 


=$1B 


HIGH 
LO,X 
LOW 
XCOUNT 
SHAPE , X 
(LOW) ,Y 
XCOUNT 
LINE 
LINE 
DEPTH 
DRAW1 


LINE 
#$00 
XCOUNT 
BYTE 
LINE 
HI,X 
HIGH 
LO,Xx 
LOW 
XCOUNT 
(LOW) ,Y 
SHAPE , X 
(LOW), Y 
XCOUNT 
LINE 
LINE 
DEPTH 
ERASE1 
START 


00083E5D1C1422 ;SHAPE TABLE 


=$6006 
=$600A 
=$605C 
=$6094 
=$60F5 
=$C054 


3LOAD X WITH XCOUNT 
;LOAD SHAPE BYTE 


;PLOT BYTE 


sNEXT LINE 


3F INISH SHAPE? 
31F NO, DRAW NEXT LINE 
;IF YES, NEXT DRAW CYCLE 


sRESET LINE 


;ZERO» XCOUNT 


;ERASE 


XCOUNT 
DEPTH 
CLR1 
START1 
ERASE 
LO 
HIRES 


=$6003 
=$6007 
=$601E 
=$605F 
=$60BB 
=$61B5 
=$C057 


inappropriate. For example, when we 
want a shape to appear to go behind the background or when the background is 
very simple, such as a single line, the shape should merge with the background 


BYTE =$6004 
DELAY =$6008 
CLR =$6022 
INITIAL =$607B 
ERASE1 =$60C3 
GRAPHICS=$C050 


WAIT =$FCA8 
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Hi-Res Graphics and Animation Using Assembly Language Pee e cece eee n eee cents ee ee eee eeeeeassceensccneesececeeeccceeceeesesenceancees 
= and ee instead of —— 


To accomplish this, we need to use a different type of draw routine, one that 
uses AND and ORA. 

We've seen the AND instruction before in the chapter on collisions, but it 
won't hurt to review it. AND compares each bit in the Accumulator with the 
corresponding bit of a byte, either a direct value or the contents of a memory 
270 location, and returns a value of 1 if both bits are 1. Otherwise, the result is 0. 
The result is stored in the Accumulator. 


Example 
Accumulator 00117: 001 
AND byte 0.1:0:1:0 1 OF 
Result 00010001 


ORA does the same kind of comparison, but here the result is 1 if either or 
both bits are 1, and 0 if both bits are 0. The result is stored in the Accumulator. 


Example 
Accumulator 007170011 
ORA byte 0.1:.0°9::0' 1-0 1 
Result OAT VO ET 


Let’s see how we use these instructions to produce a shape merged with a 
background. First, we obtain a complement of the shape by EORing with #$7F. 
We then AND the background with the complement, and ORA the shape: 


Shape 0011000 
EOR #$7F ee et sy 
Result 1100711 
AND background 11717000 
Result 1100000 
ORA shape 0011000 


Result 1111000 Shape + Background 


TOW siaielo aie Ws aioe ADWia 6isin'swe'eig Slee divi Sielo’e Sew a winleisielhie Swininis Se cencise ewisiueeinewiewe nine wcisniside ude ccis's scc¥geasabine ss csici's Drawing over Backgrounds 


A problem arises when we now want to erase the shape and restore the 
background. If we EOR the shape, a flawed background results: 


Shape + background 411 17:6:00 
EOR shape 0011000 
Result 1100000 


We get around this by storing the background in a temporary location 
labeled BACK, and erase the shape by redrawing the stored background using 
the protocol LDA byte, STA screen byte. We can see how this works in the next 
program (Program 14-3), which is the same as Program 14-1 except for the 
draw and erase routines. 

First, we reserve memory for the background by BACK DS 6, because the 
shape contains 6 bytes. In the DRAW routine, we load the screen byte by LDA 
(LOW ),Y (line 92) and store the byte (i.e., the background) in BACK with STA 
BACK,X (line 93). We then continue drawing with EOR #$7F to obtain the 
shape complement; AND BACK,X to AND the background; ORA SHAPE,X to ORA 
the shape byte; and STA (LOW),Y to plot the result. X is used as the counter for 
the BACK “table” the same way it’s used as a counter for the SHAPE table. For 


multiple byte shapes, we would use BACK+1,X, BACK+2,X, etc. in the same way 273 
that we use SHAPE+1,X, etc. In the MAIN PROGRAM, after the shape is drawn, 
we erase by calling an XDRAW routine. Here the background is restored by LDA 4 


BACK,X, STA (LOW),Y; i.e., we redraw the background directly over the merged 
shape + background. 


JPROGRAM 14-3 
: ASM 


1 **WHITE SHAPE & BACKROUND * NO NEGATIVE EFFECT 
2 FI II IK IKI KIKI III II IIA I 
3 *SHAPE IS 1 BYTE WIDE BY 6 BYTES DEEP 
4 FOI RII II IOI KI I III IR IIR IIA 
5 ORG $6000 
6000: 4C 10 60 6 JMP PGM 
7 XCOUNT DS 1 
8 BYTE DS. .1 
9 LINE DS 1 
10 ~=LINEA DS. 
11 ~=DEPTH DS 1 
12 DELAY DS» 1 
13. SDEPTH DS 1 
14‘ BACK DS 6 


15 GRAPHICS = $C050 
16 MIXOFF = $C052 
17. _— HIRES S $C057 
18  ~PAGE1 = $C054 
19 HIGH = $1B 

20 ~=LOW = $1A 

21 ~=~WAIT = $FCA8 

6010: AD 50 CO 22  PGM LDA GRAPHICS — ;HIRES,P.1 


6013: AD 52 CO 23 LDA MIXOFF 


Hi-Res Graphics and Animation Using Assembly Language tne e eee een eeeee eens eee ene e eee es eeeneeeeesee esses seen eseeeeseeesteeeeennes 


6016: AD 57 CO 24 LDA HIRES 
6019: AD 54 CO 25 LDA PAGE1 
601C: A9 00 26 LDA #$00 ;CLEAR SCREEN 1 
601E: 85 1A 27 STA LOW 
6020: A9 20 28 LDA #$20 
6022: 85 1B 29 STA HIGH 
6024: AO 00 30 = =CLR1 LDY #$00 
6026: A9 00 31 LDA #$00 
6028: 91 1A 32) CER STA (LOW),Y 
602A: C8 33 INY 
602B: DO FB 34 BNE CLR 
602D: E6 1B 35 INC HIGH 
602F: AS 1B 36 LDA HIGH 
6031: C9 40 37 CMP #$40 
6033: 90 EF 38 BLT CLR1 
6035: A9 80 39 LDA #$80 ;LOAD TIME DELAY 
6037: 8D 08 60 40 STA DELAY 
41  ** DRAW WHITE BOX 
603A: AQ 5A 42 LDA #$5A 
603C: 8D 09 60 43 STA SDEPTH 
603F: AO 10 44 LDY #$10 
6041: A9 50 45 LDA #$50 
6043: 8D 05 60 46 STA LINE 
6046: AE 05 60 47 ST LDX LINE 
6049: BD OF 61 48 LDA HI,X 
604C: 85 1B 49 STA HIGH 
274 604E: BD CF 61 50 LDA LO,X 
zi 6051: 85 1A 51 STA LOW 
6053: AQ 7F 52 LDA #$7F 
6055: 91 1A 53 STA (LOW),Y 
6057: EE 05 60 54 INC LINE 
605A: AD 05 60 55 LDA LINE 
605D: CD 09 60 56 CMP SDEPTH 
6060: 90 £4 57 BLT ST 


58 tek MATIN PROGRAM tie doa 
6062: 20 8A 60 59 START JSR INITIAL ;SETUP BYTE,LINE & DEPTH 


6065: 20 9E 60 60 START1 JSR DRAW ;DRAW SHAPE 

6068: AD 08 60 61 LDA DELAY ;DELAY 

606B: 20 A8 FC 62 JSR WAIT 

606E: AD 06 60 63 LDA LINEA 

6071: 8D 05 60 64 STA” LENE 

6074: 20 D7 60 65 JSR XDRAW sERASE SHAPE 

6077: EE 07 60 66 INC DEPTH ;NEXT DEPTH 

607A: EE 06 60 67 INC LINEA & NEXT LINE 

607D: AD 06 60 68 LDA LINEA 

6080: 8D 05 60 69 STA LINE 

6083: C9 BB 70 CMP #$BB 31S LINE AT BOTTOM OF SCREEN? 
6085: BO DB 71 BGE START ;1F YES, DRAW FROM INITIAL VALUES 
6087: 4C 65 60 72 JMP START1 ;1F NO, DRAW NEXT LINE 


7300 eI SUBROUTINES #0 
608A: AQ 10 74 INITIAL LDA #$10 


608C: 8D 04 60 75 STA BYTE ;SET STARTING BYTE 

608F: A9 00 76 LDA #$00 

6091: 8D 05 60 77 STA LINE 3SET STARTING LINE 

6094: 8D 06 60 78 STA LINEA 

6097: 18 79 CLC 

6098: 69 06 80 ADC #$06 3ADD DEPTH OF SHAPE TO LINE 
609A: 8D 07 60 81 STA DEPTH 

609D: 60 82 RTS 


609E: A9 00 83 DRAW LDA #$00 
60A0: 8D 03 60 84 STA XCOUNT ;ZERO XCOUNT 
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60A3: AC 04 60 85 DRAW1 LDY 
60A6: AE 05 60 86 LDX 
60A9: BD OF 61 87 LDA 
60AC: 85 1B 88 STA 
60AE: BD CF 61 89 LDA 
60B1: 85 1A 90 STA 
60B3: AE 03 60 91 LDX 
60B6: Bl 1A 92 LDA 
60B8: 9D OA 60 93 STA 
60BB: BD 09 61 94 LDA 
60BE: 49 7F 95 EOR 
60C0: 3D OA 60 96 AND 
60C3: 1D 09 61 97 ORA 
60C6: 91 1A 98 STA 
60C8: EE 03 60 99 INC 
60CB: EE 05 60 100 INC 
60CE: AD 05 60 101 LDA 
60D1: CD 07 60 102 CMP 
60D4: 90 CD 103 BLT 
60D6: 60 104 RTS 
60D7: A9 00 105 XDRAW LDA 
6009: 8D 03 60 106 STA 
60DC: AE 05 60 107 XDRAW1 LDX 
60DF: AC 04 60 108 LDY 
60E2: BD OF 61 109 LDA 
60E5: 85 1B 110 STA 
60E7: BD CF 61 111 LDA 
60EA: 85 1A 112 STA 
60EC: AE 03 60 113 LDX 
60EF: BD OA 60 114 LDA 
60F2: 91 1A 115 STA 
60F4: EE 03 60 116 INC 
60F7: EE 05 60 117 INC 
60FA: AD 05 60 118 LDA 
60FD: CD 07 60 119 CMP 
6100: 90 DA 120 BLT 
6102: AD 06 60 121 LDA 
6105: 8D 05 60 122 STA 
6108: 60 123 RTS 
6109: 08 3E 5D 124 SHAPE HEX 
610C: 1C 14 22 
HI 
LO 


655 bytes 


Symbol table - numerical order: 


BYTE 
LINE 
HI,X 
HIGH 
LO,x 
LOW 
XCOUNT 
(LOW) ,Y 
BACK, X 
SHAPE , X 
#$7F 
BACK, X 
SHAPE , X 
(LOW) ,Y 
XCOUNT 
LINE 
LINE 
DEPTH 
DRAW1 


#$00 
XCOUNT 
LINE 
BYTE 
HI,X 
HIGH 
LO,X 
LOW 
XCOUNT 
BACK , X 
(LOW), Y 
XCOUNT 
LINE 
LINE 
DEPTH 
XDRAW1 
LINEA 
LINE 


;LOAD BYTE 
;LOAD LINE 
;LOAD LINE ADDRESS INTO HIGH,LOW 


;LOAD X WITH XCOUNT 
;GET BYTE FROM SCREEN 
;STORE BACKROUND 


;PLOT 
;NEXT LINE 
3FINISH SHAPE? 


3IF NO, DRAW NEXT LINE 
3IF YES, NEXT DRAW CYCLE 


;GET BACKROUND 
AND PLOT 


083E5D1C1422 ;SHAPE TABLE 


LOW =$1A HIGH =$1B 
LINE =$6005 LINEA =$6006 
SDEPTH =$6009 BACK =$600A 
CLR =$6028 ST =$6046 
INITIAL =$608A DRAW =$609E 
XDRAW1 =$60DC SHAPE  =$6109 
GRAPHICS=$C050 MIXOFF =$C052 
WAIT =$FCA8 


XCOUNT =$6003 BYTE =$6004 
DEPTH =$6007 DELAY =$6008 
PGM =$6010 CLR1 =$6024 
START  =$6062 START1 =$6065 
DRAW1 =$60A3 XDRAW  =$60D7 
HI =$610F LO =$61CF 
PAGE1  =$C054 HIRES  =§C057 
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COLOR SHAPES WITH COLOR OR WHITE BACKGROUNDS 


SPOR ee emer ener eee ee eeeeee ees eeeeeeaeseessseees 


Drawing color shapes over color or white backgrounds using the usual EOR 
DRAW-ERASE routine produces a variety of strange results. For example, if we 
plot a violet shape over a violet background or a green shape over a green 
background, the shape turns to black: 


1010101 Background violet 
0010100 EOR violet shape 


1000007 Shape is black 


Plotting blue over blue or orange over orange yields even stranger results. 
Here the shape not only turns to black but the background turns to the 
non-high-bit-set color (blue to violet or orange to green), because when the 
high bit is EORed, it sets to 0 (remember even though the high bit is not plotted, 
it is still affected by assembly language instructions ): 


ee eeeeee 


1010101 1 Background blue 
0010100 1 EOR blue shape 


276 1000001 0 _ Black shape, violet background 


If we plot alternate column colors, say a green shape over a violet 
background, the shape turns to white: 


10° 1.0-4.:0-1 Background violet 
0001010 EOR green shape 


1:04 47°14 Shape is white 


Similarly, if we plot a blue shape over orange, the shape also turns to white 
and, in addition, the background turns to the non-high-bit-set color. 

If we plot color shapes over a white background using EOR, the color 
changes to the complement: 


1 White background 
1 EOR violet shape 


0101010 Shape is green 


To see the effect of all this, run the following program (Program 14-4), 
which draws a violet and green shape over a violet background using EOR. What 
you will see is that the violet part of the shape will turn to black and the green 
part to white as the shape passes over the background. 


wd n'a:o ea.e'n's'e:wsigiela:d'eiarb eialaialec'oin’sie's wieis'cle(e.0.e'e\e:stsisinigreisinieia disiaceieigiaieie'e,eie 6i0'h/si0:6 Biel's slo iejsisiesisie:csie eSjeis sieleis's'elsieeis'eresie'e sie ue Dra wing over Backgrounds 


JPROGRAM 14-4 
: ASM 


6000: 4C OA 60 


600A: AD 50 CO 
600D: AD 52 CO 
6010: AD 57 CO 
6013: AD 54 CO 
6016: A9 00 
6018: 85 1A 
601A: AY 20 
601C: 85 1B 
601E: AO 00 
6020: A9 00 
6022: 91 1A 
6024: C8 

6025: DO FB 
6027: E6 1B 
6029: A5 1B 
602B: C9 40 
602D: 90 EF 
602F: AQ 80 
6031: 8D 08 60 


6034: AQ 5A 
6036: 8D 09 60 
6039: AO 10 
603B: A9 50 
603D: 8D 05 60 
6040: AE 05 60 
6043: BD CC 60 
6046: 85 1B 
6048: BD 8C 61 
604B: 85 1A 
604D: A9 55 
604F: 91 1A 
6051: EE 05 60 
6054: AD 05 60 
6057: CD 09 60 
605A: 90 E4 


605C: 20 7E 60 
605F: 20 92 60 


WOONADNHPWNHre 


*COLOR SHAPE & BACKROUND WITH EOR 


KRKKEKKEKKKEKKKKKKKKKKKKKKKKKKK 


*SHAPE IS 1 BYTE WIDE BY 6 BYTES DEEP 
kak KKKKKKKKKK KKK KKK KKK KK KKK 
ORG $6000 
UMP PGM 
XCOUNT DS 
BYTE DS 
LINE DS 
LINEA DS 
DEPTH DS 
DELAY DS 
SDEPTH DS 1 
GRAPHICS $C050 
MIXOFF $C052 
HIRES $CO57 
PAGE] $C054 
HIGH $1B 
LOW $1A 
WAIT $FCA8 
PGM LDA GRAPHICS  ;HIRES,P.1 
LDA MIXOFF 
LDA HIRES 
LDA PAGEL 
LDA #$00 ;CLEAR SCREEN 1 
STA LOW 
LDA #$20 
STA HIGH 
CLRI LDY #$00 
LDA #$00 
CLR STA (LOW),Y 


ee ee) 


BNE CLR 
INC HIGH 
LDA HIGH 
CMP #$40 
BLT CLR1 
LDA #$80 ;LOAD TIME DELAY 
STA DELAY 
** DRAW VIOLET BOX 
LDA #$5A 
STA SDEPTH 
LDY ¥#$10 
LDA #$50 
STA LINE 
ST LDX LINE 
LDA HI,Xx 
STA HIGH 
LDA LO,X 
STA LOW 
LDA #$55 
STA (LOW),Y 
INC LINE 
LDA LINE 
CMP SDEPTH 
BLT ST 
kkk KK KKK KK MAIN PROGRAM KkKKKKKKKKK 
START JSR INITIAL — ;SETUP BYTE,LINE & DEPTH 
START1 JSR DRAW ;DRAW SHAPE 
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6062: AD 08 60 60 LDA DELAY ;DELAY 

6065: 20 A8 FC 61 JSR WAIT 

6068: 20 92 60 62 JSR DRAW ;ERASE SHAPE 

606B: EE 07 60 63 INC DEPTH ;NEXT DEPTH 

606E: EE 06 60 64 INC LINEA & NEXT LINE 

6071: AD 06 60 65 LDA LINEA 

6074: 8D 05 60 66 STA LINE 

6077: C9 BB 67 CMP #$BB 31S LINE AT BOTTOM OF SCREEN? 
6079: BO El 68 BGE START 31F YES, DRAW FROM INITIAL VALUES 
607B: 4C 5F 60 69 JUMP START1 31F NO, DRAW NEXT LINE 


70 eI SUBROUTINES eae 
607E: AQ9 10 71 INITIAL LDA #$10 


6080: 8D 04 60 72 STA BYTE 3SET STARTING BYTE 
6083: AQ 00 73 LDA #$00 
6085: 8D 05 60 74 STA LINE 3SET STARTING LINE 
6088: 8D 06 60 75 STA LINEA 
608B: 18 76 CLC 
608C: 69 06 res ADC #$06 ;ADD DEPTH OF SHAPE TO LINE 
608E: 8D 07 60 78 STA DEPTH 
6091: 60 79 RTS 
6092: AX 00 80 DRAW LDA #$00 
6094: 8D 03 60 81 STA XCOUNT 3ZERO XCOUNT 
6097: AC 04 60 82  DRAW1 LDY BYTE ;LOAD BYTE 
609A: AE 05 60 83 LDX LINE ;LOAD LINE 
609D: BD CC 60 84 LDA HI,X ;LOAD LINE ADDRESS INTO HIGH,LOW 
60A0: 85 1B 85 STA HIGH 

278 60A2: BD 8C 61 86 LDA LO,X 
60A5: 85 1A 87 STA LOW 

| 60A7: AE 03 60 88 LDX XCOUNT ;LOAD X WITH XCOUNT 
60AA: Bl 1A 89 LDA (LOW),Y ;GET BYTE FROM SCREEN 
60AC: 5D C6 60 90 EOR SHAPE,X 3EOR BYTE FROM SHAPE ADDRESS+X 
60AF: 91 1A 91 STA (LOW),Y ;PLOT BYTE 
60B1: EE 03 60 92 INC XCOUNT 
60B4: EE 05 60 93 INC LINE 3NEXT LINE 
60B7: AD 05 60 94 LDA LINE 
60BA: CD 07 60 95 CMP DEPTH sFINISH SHAPE? 
60BD: 90 D8 96 BLT DRAW1 ;1F NO, DRAW NEXT LINE 
60BF: AD 06 60 97 LDA LINEA 3IF YES, RESET LINE 
60C2: 8D 05 60 98 STA LINE AND GO TO NEXT 
60C5: 60 99 RTS DRAW CYCLE 


60C6: 14 2A 2A 100 SHAPE HEX 142A2A2A1414 ;SHAPE TABLE 
6009: 2A 14 14 

HI 

LO 


588 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B XCOUNT =$6003 BYTE =$6004 
LINE =$6005 LINEA =$6006 DEPTH =$6007 DELAY =$6008 
SDEPTH =$6009 PGM =$600A CLR1 =$601E CLR =$6022 
ST =$6040 START  =$605C START1 =$605F INITIAL =$607E 
DRAW =$6092 DRAW1 =$6097 SHAPE  =$60C6 HI =$60CC 


LO =$618C GRAPHICS=$C050 MIXOFF =$C052 PAGE1 =$C054 
HIRES  =$C057 WAIT =$FCA8 


ORR eee eee eRe eee EERE EEE EE EEE HEHEHE HEE E OEE EEEEEEEESEEEEEEEEE EEE ESEEEEEEEEEEESE SEE EEE EEEEEEESS 


In all these cases, the background can be restored by EORing the shape byte, 
but clearly we need to modify the draw routine to allow the shapes to retain 
their colors. The technique we're going to use is a slight modification of the 
protocol presented in Program 14-3. We load the background byte with LDA 
(LOW ),Y and store it in BACK with STA BACK,X. Next, we load the 
Accumulator, not with the shape byte but rather with a white dummy shape, and 
use this for the EOR #$7F and AND BACK,X. We then ORA the color shape and 
plot. The background is restored from BACK in the XDRAW routine. This 
technique is used in the following program (Program 14-5) to draw a green 
shape over a violet background. 


JPROGRAM 14-5 
:ASM 


1 * COLOR SHAPE & BACKROUND * COLOR RETAINED 
2 KKK KK KEK KIK KKK KKK KKKKKK KEKE 
3 *SHAPE IS 1 BYTE WIDE BY 6 BYTES DEEP 
4 KKKKKKKKREKKKEKKKEKEKKEKKKKKKK 
3 ORG $6000 
6000: 4C 10 60 6 JMP = PGM 
7 XCOUNT DS 1 
8 BYTE DS: <1 
9 LINE DS; al 
10 LINEA DS: «1 
11 DEPTH DS «64 
12 “DELAY DS. 1 
13) SSDEPTH. “DS 2 
14 BACK DS 6 


15 GRAPHICS = $C050 

16 MIXOFF = $C052 

17. —_—HIRES = $C057 

18 PAGE] = $C054 

19 HIGH = $1B 

20 ~=LOW = $1A 

21 ~=~WAIT = $FCA8 
6010: AD 50 CO 22 _ PGM LDA GRAPHICS — ;HIRES,P.1 
6013: AD 52 CO 23 LDA MIXOFF 
6016: AD 57 CO 24 LDA HIRES 
6019: AD 54 CO 25 LDA PAGE1 
601C: AY 00 26 LDA #$00 ;CLEAR SCREEN 1 
601E: 85 1A 27 STA LOW 
6020: A9 20 28 LDA #$20 
6022: 85 1B 29 STA HIGH 
6024: AO 00 30 =CLR1 LDY #$00 
6026: AQ 00 31 LDA #$00 
6028: 91 1A 32 CLR STA (LOW),Y 
602A: C8 33 INY 
602B: DO FB 34 BNE CLR 
602D: E6 1B 35 INC HIGH 
602F: AS 1B 36 LDA HIGH 
6031: C9 40 37 CMP #$40 
6033: 90 EF 38 BLT CLR1 
6035: AQ 80 39 LDA #$80 ;LOAD TIME DELAY 
6037: 8D 08 60 40 STA DELAY 

41 ** DRAW VIOLET BOX 
603A: AQ 5A 42 LDA #$5A 
603C: 8D 09 60 43 STA SDEPTH 
603F: AO 10 44 LDY #$10 
6041: AQ 50 45 LDA #$50 


6043: 8D 05 60 46 STA LINE 
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6046: 


6049: 
604C: 
604E: 
6051: 
6053: 
6055: 
6057: 
605A: 
605D: 
6060: 


6062: 
6065: 
6068: 
606B: 
606E: 
6071: 
6074: 
6077: 
607A: 
607D: 
607F: 
6081: 


6084: 
6086: 
6089: 
608B: 
608E: 
6091: 
6092: 
6094: 
6097: 
6098: 
609A: 
609D: 
60A0: 
60A3: 
60A6: 
60A8: 
60AB: 
60AD: 
60B0: 
60B2: 
60B5: 
60B8: 
60BA: 
60BD: 
60C0: 
60C2: 
60C5: 
60C8: 
60CB: 
60CE: 
60D0: 
60D3: 
60D6: 
6007: 
60D9: 
60DC: 


60 
60 


106 
107 


Sil LDX 


LDA 
STA 
LDA 
STA 
LDA 
STA 
INC 
LDA 
CMP 
BLT 


eee eee eee eee eee eee eee eee eee eee eee eee eee eee eee eee ee ee eee ee ee ee 


KRKKKKKKKKEK MAIN PROGRAM KkKRK KK KKK 


START JSR 
START1 JSR 
LDA 
JSR 
JSR 
INC 
INC 
LDA 
STA 
CMP 
BGE 
JMP 


INITIAL 
DRAW 
DELAY 
WAIT 
XDRAW 
DEPTH 
LINEA 
LINEA 
LINE 
#$BB 
START 
START1 


;SETUP BYTE,LINE & DEPTH 
;DRAW SHAPE 
; DELAY 


;ERASE SHAPE 
3NEXT DEPTH 
& NEXT LINE 


31S LINE AT BOTTOM OF SCREEN? 
;IF YES, DRAW FROM INITIAL VALUES 
;1F NO, DRAW NEXT LINE 

* 


KKKKKKKKKK SUBROUTINES Kaka KKKKKK 


INITIAL LDA 
STA 
LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 
DRAW LDA 
STA 
DRAW1 LDY 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
STA 
LDA 
EOR 
AND 
ORA 
STA 
INC 
INC 
LDA 
CMP 
BLT 
LDA 
STA 
RTS 
XDRAW LDA 
STA 
XDRAW1  LDX 


#$10 
BYTE 
#$00 
LINE 
LINEA 


#$06 
DEPTH 


#$00 
XCOUNT 
BYTE 
LINE 
HI,X 
HIGH 
LO,X 
LOW 
XCOUNT 
(LOW) ,Y 
BACK ,X 
WSHAPE , X 
#$7F 
BACK ,X 
SHAPE , X 
(LOW) ,Y 
XCOUNT 
LINE 
LINE 
DEPTH 
DRAW] 
LINEA 
LINE 
DRAW 
#500 
XCOUNT 
LINE 


3SET STARTING BYTE 
3SET STARTING LINE 


;ADD DEPTH OF SHAPE TO LINE 


;ZERO XCOUNT 

;LOAD BYTE 

;LOAD LINE 

;LOAD LINE ADDRESS INTO HIGH,LOW 


;GET SCREEN BYTE 
;SAVE BACKROUND 
;LOAD WHITE SHAPE 


3;ORA COLOR SHAPE 
;PLOT 


sNEXT LINE 


sFINISH SHAPE? 

;1F NO, DRAW NEXT LINE 

3IF YES, RESET LINE 
AND GO TO NEXT 

CYCLE 


Poeeeeeeeee CeCe eee ee eee errr r reer errrr ere reer rrr ree rrr reer errr errr errr rrr er errr rrr errr errr errr reer ees 


282828282828 ;SHAPE TABLE 


sWHITE SHAPE TABLE 


60DF: AC 04 60 108 LDY BYTE 

60E2: BD 15 61 109 LDA HI,X 

60E5: 85 1B 110 STA HIGH 

60E7: BD D5 61 111 LDA LO,X 

60EA: 85 1A 112 STA LOW 

60EC: AE 03 60 113 LDX XCOUNT 

60EF: BD OA 60 114 LDA BACK,X 

60F2: 91 1A 115 STA (LOW),Y 

60F4: EE 03 60 116 INC XCOUNT 

60F7: EE 05 60 117 INC LINE 

60FA: AD 05 60 118 LDA LINE 

60FD: CD 07 60 119 CMP DEPTH 

6100: 90 DA 120 BLT XDRAW1 

6102: AD 06 60 121 LDA LINEA 

6105: 8D 05 60 122 STA LINE 

6108: 60 123 RTS 

6109: 28 28 28 124 SHAPE HEX 

610C: 28 28 28 

610F: 7C 7C 7C 125 WSHAPE HEX 7C7C7C7C7C7C 

61123. 7C 7C 7C 

HI 
LO 

661 bytes 

Symbol table - numerical order: 
LOW =$1A HIGH =$1B XCOUNT 
LINE =$6005 LINEA =$6006 DEPTH 
SDEPTH =$6009 BACK =$600A PGM 
CLR =$6028 ST = $6046 START 
INITIAL =$6084 DRAW =$6098 DRAW1 
XDRAW1 =$60DC SHAPE =$6109 WSHAPE 
LO =$61D5 GRAPHICS=$C050 MIXOFF 
HIRES  =$C057 WAIT =$FCA8 


Let’s examine the details to see how the program works. 


Violet background 


Green shape 


White dummy shape 


White shape 
EOR #$7F 


Result 


AND violet background 


Result 
ORA green shape 


Result 


1010 
0001 
0011 


black 


01 


010 


11 


Oo 
atk 


10 


=$6003 BYTE 
=$6007 DELAY 
=$6010 CLR1 
=$6062 START1 
=$609D XDRAW 
=$610F HI 
=$C052 PAGE1 

#$55 

#$28 

#$7C 


The result is a green shape over a violet background. This is what we 
want—the colors are retained—but notice that the shape now has a black 


Drawing over Backgrounds 


=$6004 
=$6008 
=$6024 
=$6065 
=$60D7 
=$6115 
=$C054 
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border. This is not a great problem. If you run Program 14-5, you'll see that the 
border actually sets off the shape quite nicely. Eliminating the border is really 
not necessary for most situations and in fact an equally pleasing effect can be 
achieved by changing the border to white. All that’s required is changing the 
white dummy shape. For example: 


Violet background 1010101 #$55 
Green shape 0001010 = #$28 
White dummy shape 0001111 #$78 
White shape 00°01 114 
EOR #$7F a tte At 
Result 1110000 
AND violet background 1010101 
Result 1010000 
ORA green shape 0001010 
Result 1011010 
white 


This technique works for drawing any color over a white background and for 
282 any color (including white) over any other color background, unless the color 
= combinations involve high-bit-set and high-bit-not-set colors. You can’t draw a 
violet shape over a blue background, for example, because the plotted byte 
either has the high bit set or not. 


Advanced Paddle 
( Joystick ) Routines 


I'm really in a bit of a fix— 

I need a limerick like a magician needs tricks. 
But I'm lazy today 

So I'll take the easy way— 

Just read the one in Chapter 6. 


7. 283 
he paddle routine in the game program works okay for its stated pur- # 
pose, but let’s see how we can use our assembly language expertise to improve 
on it and at the same time exercise our programming skills. First, we'll discuss 
how to minimize flicker by introducing a paddle movement test, and then we'll 
go on to a paddle-smoothing routine that prevents instantaneous movement of 
the paddle-controlled shape. 


TESTING FOR NON-MOVEMENT OF PADDLE 


POeeeeeE UOT OCOOSSOOOOSSOOOOOOSOOOCSS COSCO TIES rT) 


Let’s consider Program 6-1, where the vertical movement of a shape is con- 
trolled by a paddle. The overall scheme can be represented as follows: 


PADDLE READ 


In the game program, “DELAY” can be replaced by “REST OF PROGRAM”, 
because everything else is executed between paddle reads. Now if you look at 
the man shape in the game program or the shape in Program 6-1, when the 
shapes are stationary, flicker is evident. As mentioned before, the amount of 
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flicker depends to a large extent on the image retention characteristics of the 
monitor or TV. The reason for the flickering is the delay between paddle reads; 
the longer the delay (or the larger the program code between reads) the greater 
the flickering. Note also that the flickering is noticeable only when the shape is 
stationary, i.e., when the paddle position is not changed, and this leads us to the 
solution to the problem. In the scheme diagrammed above, the shape is drawn 
and erased continuously, even if the paddle position stays the same. What we 
need to do then is introduce a test for paddle movement—if the paddle is not 
moved, the draw-erase cycle will be bypassed, the shape will stay on the screen 
at the position determined by the paddle, and flicker will be totally eliminated. 

If we try to introduce this test using the scheme above, we run into trouble, 
because the shape is erased before each paddle read and so if the paddle isn’t 
moved, the shape will not be displayed. 


PADDLE READ 
SAME POSITION? 


DELAY (REST 
OF PROGRAM) 


We could get around this by using a DRAW-DRAW routine, but this presents 
its own problems which we'll get to later. To perform the test with a DRAW- 


ERASE routine, we have to modify our usual draw-erase cycle to an erase-draw 
cycle preceded by an initial draw outside the main loop; that is: 


INITIAL DRAW 
DELAY (REST 
OF PROGRAM) 
PADDLE READ 


SAME POSITION? 


eee eee CUE POCECOUCOeC CeCe UCereerrerererre cere rreer errr rrrrr eres errr eee eee errr eee reer ee rrrr re rere) 


As you can see, the shape is erased and drawn only when the paddle position 
changes—if it stays the same, the erase-draw routine is bypassed entirely. Note 
that the shape is drawn, not erased, before the paddle read and test and so 
always stays on the screen. This scheme is incorporated into the following pro- 
gram (Program 15-1) which is the same as Program 6-1, except for the paddle 
movement test. 

In the MAIN PROGRAM of Program 15-1, we draw the shape initially using a 
specified screen byte position (defined in the INITIAL subroutine ) and a screen 
line specified by the PDLE subroutine; in this subroutine we also store the Y 
value returned from PREAD in Y1. The program then proceeds into the main 
loop, starting with a delay (or rest of program) and then a paddle read. The Y 
value returned from PREAD is compared to Y1—if equal, it means the paddle 
position hasn’t changed and the program loops back to the delay (rest of pro- 
gram) without erasing and redrawing the shape. Voila, no flicker, or, as they say 
in French, voila, no flicker. 

If Y is not equal to Y1, the paddle position has moved, so we want to erase 
and then redraw the shape at the new position specified by the paddle read. 
First, we store the Y value from PREAD temporarily in Y2 and then jump to 
PLOT to erase the shape using Y1 (the original Y value from the last draw). The 
value in Y2 is then placed in Y1 and another jump to PLOT draws the shape 
using the Y value from the last PREAD. In other words, Y1 is used for erasing and 
Y2 for drawing, then Y2 is placed in Y1 in preparation for the next cycle. After 
the draw, the program loops to the delay (rest of program), and so on and on 
and on. 

Compare Programs 6-1 and 15-1. The absence of flicker is quite noticeable 
and quite an improvement, and would be even more so in programs with lots of 
code between paddle reads. 


DRAW USING NEW Y1 
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285 


286 


Hi-Res Graphics and Animation Using Assembly Language win sulin diel elejoin 0ieib sie .n'els 016 gidisiejaia binie\o1s a:eie’slars\sle‘adlé mis aininieinlasiaielSole'ad\alaisletea paar be Giallo 


]PROGRAM 15-1 
: ASM 


6000: 4C OB 60 


AD 50 CO 
600E: AD 52 CO 
AD 57 CO 
6014: AD 54 CO 


6032: 8D 08 60 


WOANDULF WN 


* PADDLE MOVE TEST * VERTICAL 
KKKKKKKKKKKKKKEKERERERERERK EK 


*SHAPE IS 1 BYTE WIDE BY 6 BYTES DEEP 
KKKKKKKKKKKE KKK ER EEEREREREK 


ORG $6000 
JMP PGM 
XCOUNT DS 1 
BYTE DS 41 
LINE D1 
LINEA DS 1 
DEPTH DS 1 
DELAY DS 1 
Yl D1 
Y2 Dp 1 
GRAPHICS = — $C050 
MIXOFF =  $C052 
HIRES = — $CO57 
PAGEL =  $C054 
HIGH =  S$iB 
LOW =  $i1A 
WAIT = — $FCA8 
PREAD =  SFBIE 
PGM LDA GRAPHICS ;HIRES,P.1 
LDA MIXOFF 
LDA HIRES 
LDA PAGE] 
LDA #$00 ;CLEAR SCREEN 1 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY #$00 
LDA #$00 
CLR STA (LOW),Y 
INY 
BNE CLR 
INC HIGH 
LDA HIGH 
CMP #$40 
BLT CLR 
LDA #$40 ;LOAD TIME DELAY 
STA DELAY 


KkKKKKKKKK MAIN PROGRAM *kxkkRRKKK 
** INITIAL DRAW ** 


JSR INITIAL ;SET SCREEN BYTE 
JSR PDLE ;READ PADDLE 1 
JSR DEP ;SET DEPTH 

JSR DRAW ; DRAW 


KKKKKKKKAKKKKREREREREREREE 
PROGRAM LDA DELAY 


JSR WAIT ;DELAY OR REST OF PROGRAM 

LDX #S01 

JSR PREAD 

GRY: -¥I ;1F PADDLE HASN'T MOVED, DO NOT 


BEQ PROGRAM ERASE AND REDRAW SHAPE 
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6051: 8C 0A 60 55 STY Y2 ;IF PADDLE HAS MOVED, STORE Y IN 
6054: 20 63 60 56 JSR PLOT Y2 AND ERASE USING Yl 
6057: AD OA 60 57 LDA Y2 ; TRANSFER Y2 TO Yl 
605A: 8D 09 60 58 STA Yl AND 
605D: 20 63 60 59 JSR PLOT DRAW 
6060: 4C 41 60 60 JMP PROGRAM 
61 KKKKKKKKKK SUBROUTINES ****RKRKKK 
6063: AD 09 60 62 PLOT LDA Y1 
6066: C9 BB 63 CMP #SBB 
6068: 90 02 64 BLT CONTI 
606A: AQ BA 65 LDA #S$BA 
606C: 8D 05 60 66 CONT1 STA LINE 
606F: 20 7C 60 67 JSR DEP 
6072: 20 9C 60 68 JSR DRAW 
6075: 60 69 RTS 
70 KREKKKEKKKEKREKKEKKRKKKKKKEK 
6076: A9 10 71 INITIAL LDA #$10 
6078: 8D 04 60 72 STA BYTE ;SET STARTING BYTE 
607B: 60 73 RTS 
74 KKEKKKKEKKKEKKKKKKKKKK KKK 
607C: AD 05 60 75 DEP LDA LINE ;SET DEPTH 
607F: 8D 06 60 76 STA LINEA 
6082: 18 77 CLC 
6083: 69 06 78 ADC #$06 
6085: 8D 07 60 79 STA DEPTH 
6088: 60 80 RTS 
81 RKKKKKKKKKKKKKKK KKK 287 
6089: A2 Ol 82  PDLE LDX #$01 ;READ PADDLE 1 
608B: 20 1E FB 83 JSR PREAD 30-255 IN Y R 
608E: 8C 09 60 84 STY Yl ;STORE Y IN Yl 
6091: CO BB 85 CPY #$BB ;CLIP TO 0-186 
6093: 90 03 86 BLT CONT 
6095: A9 BA 87 LDA #$BA 
6097: A8 88 TAY 
6098: 8C 05 60 89 CONT STY LINE 30-186 IN LINE 
609B: 60 90 RTS 
91 KREKKKKKKKKKKKKKK KK KKK 
609C: AI 00 92 DRAW LDA #$00 
609E: 8D 03 60 93 STA XCOUNT ;ZERO XCOUNT 
60Al: AC 04 60 94 DRAW]  LDY BYTE ;LOAD BYTE 
60A4: AE 05 60 95 LDX LINE ;LOAD LINE 
60A7: BD D6 60 96 LDA HI,X ;LOAD LINE ADDRESS INTO HIGH,LOW 
60AA: 85 1B 97 STA HIGH 
60AC: BD 96 61 98 LDA LO,X 
60AF: 85 1A 99 STA LOW 
60B1: AE 03 60 100 LDX XCOUNT ;LOAD X WITH XCOUNT 
60B4: Bl 1A 101 LDA (LOW),Y | ;GET BYTE FROM SCREEN 
60B6: 5D DO 60 102 EOR SHAPE,X | ;EOR BYTE FROM SHAPE ADDRESS+X 
60B9: 91 1A 103 STA (LOW),Y | ;PLOT BYTE 
60BB: EE 03 60 104 INC XCOUNT 
60BE: EE 05 60 105 INC LINE ;NEXT LINE 
60C1: AD 05 60 106 LDA LINE 
60C4: CD 07 60 107 CMP DEPTH ;FINISH SHAPE? 
60C7: 90 D8 108 BLT DRAWI ;IF NO, DRAW NEXT LINE 
60C9: AD 06 60 109 LDA LINEA ;IF YES, RESET LINE AND 
60CC: 8D 05 60 110 STA LINE DRAW NEXT CYCLE 
60CF: 60 lll RTS 
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60D0: 08 1C 22 112 SHAPE HEX 081C223E227F ;SHAPE TABLE 
60D3: 3E 22 7F 

HI 

LO 


598 bytes 


Symbol table - numerical order: 


LOW =Sl1A HIGH =$1B XCOUNT =$6003 BYTE 

LINE =$6005 LINEA =$6006 DEPTH =$6007 DELAY 
Yl =$6009 Y2 =$600A PGM =$600B CLR1 

CLR =$6023 PROGRAM =$6041 PLOT =$6063 CONT1 
INITIAL =$6076 DEP =$607C PDLE =$6089 CONT 

DRAW =$609C DRAW1 =S60Al SHAPE =$60D0 HI 

LO =$6196 GRAPHICS=$C050 MIXOFF =$C052 PAGE1 
HIRES =$C057 PREAD =SFBIE WAIT =$FCA8 


PADDLE-SMOOTHING ROUTINES 


POU Pee USO CeC CeO O Se) 


As mentioned above, using a DRAW-DRAW routine would simplify things 
somewhat, because without an erase routine, the shape will always be on the 
screen. For example, we could use the following scheme: 


INITIAL DRAW 
PADDLE READ 
SAME POSITION? 


DELAY 


=$6004 
=$6008 
=$601F 
=$606C 
=$6098 
=$60D6 
=$C054 
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However, there is a problem with paddle routines using DRAW-DRAW. 
Remember that DRAW-DRAW erases by redrawing over a previous position. For 
vertical movement, a border of #$00’s equal to the maximum shape move must 
be included in the shape tables. For horizontal movement, a trailing byte #800 
may be needed, depending on how the shape is drawn. If the jump in position 
from one paddle read to the next is greater than the border in vertical move- 
ment, or larger than one byte in horizontal movement, then shape fragments will 
be left on the screen. Because the paddle routines we’ve used so far provide for 
virtually instantaneous movement, moving the paddle (or more easily the joy- 
stick) rapidly does produce large iumps. Try this with Program 6-1. Introduce a 
border of size 5 or so and convert to a DRAW-DRAW routine; then move the 
paddle slowly—okay. Then move it rapidly—interesting pattern, no? The solution 
to this problem (aside from huge, unworkable borders or movement limiters on 
your paddles) is to limit the maximum shape move regardless of paddle move- 
ment. This not only eliminates the DRAW-DRAW problem, but also provides for 
a smoother, more pleasing effect. In the next program (Program 15-2), we’re 
going to modify Program 6-2 (horizontal movement of the man shape) by limit- 
ing the movement to a maximum of 5 bit positions at a time. 

Program 15-2 is the same as Program 6-2 except for the PDLE subroutine, so 
we'll limit our discussion to that part of the program. Examining the flowchart 
will make this discussion easier to follow. The flowchart for Program 15-2 is on page 
294. The two salient memory storage locations are MHORIZ, which contains the Y 


value used to calculate the shape position, and PDL, which contains the Y value from 289 
the most current paddle read. x 
If MHORIZ is larger than PDL, we want to subtract 5 from MHORIZ but not 


go below zero. After the subtraction, if MHORIZ is >= PDL, we continue with 
the program and use MHORIZ to calculate the new shape position. If MHORIZ < 
PDL, we don’t want to go beyond the paddle position, so we set MHORIZ equal to 
PDL and then continue with the shape draw. If MHORIZ initially equals PDL, we 
set MHORIZ equal to PDL and continue. If MHORIZ is initially smaller than PDL, 
we add 5 to MHORIZ but only if it is below 250 so that we don’t go beyond 255. 
After adding 5, if MHORIZ > PDL we set MHORIZ equal to PDL, again not to go 
beyond the paddle position. All this occurs just once each cycle, thus limiting the 
shape movement to a maximum of 5 bit positions in either direction. 


]PROGRAM 15-2 
: ASM 


1 *PADDLE OR JOYSTICK CONTROL OF HORIZONTAL MOVEMENT 
2 *PADDLE SMOOTHING ROUTINE 
3 ORG $6000 
6000: 4C 40 60 4 JMP PGM 
5 LINE DS 1 
6 LINEA DS 
7 DEPTH DS 
8 HORIZ DS 
9 


10 DELAY DS 
ll TEMP DS 
12 PDL DS 
13 MHORIZ DS 1 


1 
1 
1 
XCOUNT ODS uh 
1 
3 
1 


14 GRAPHICS = $C050 
15 MIXOFF = $C052 
16 HIRES = $C057 
17‘ PAGEL = $C054 
18 HIGH = $1B 
19 LOW = S1A 


Hs 


Hi-Res Graphics and Animation Using Assembly Language PICTPPTTI TIT TLI LTT TTT TTPO eer r 


co 
co 
co 
co 


60 


64 


65 


WAIT $FCA8 
PREAD SFBIE 
*LOAD SHAPE ADDRESSES INTO SHPADR, LOW BYTE FIRST 
*CONTINUE FOR ALL 7 SHAPES 
SHPADR DFB_ #<SHAPE1 
DFB #>SHAPE1 
DFB #<SHAPE2 
DFB #>SHAPE2 
DFB #<SHAPE3 
DFB_ #>SHAPE3 
DFB #<SHAPE4 
DFB #>SHAPE4 
DFB #<SHAPES 
DFB #>SHAPES 
DFB #<SHAPE6 
DFB #>SHAPE6 
DFB #<SHAPE7 
DFB #>SHAPE7 
PGM LDA GRAPHICS  ;HIRES,P.1 
LDA MIXOFF 
LDA HIRES 
LDA PAGEL 
LDA #$00 ;CLEAR SCREEN 1 
STA LOW 
LDA #$20 
STA HIGH 
CLR1 LDY #$00 
LDA #S00 
CLR STA (LOW),Y 
INY 
BNE CLR 
INC HIGH 
LDA HIGH 
CMP #$40 
BLT CLR1 
LDA #860 ;LOAD DELAY 
STA DELAY 
LDX #$B7 ;DRAW LINE 
LDY #$00 
LDA HI,X 
STA HIGH 
LDA LO,X 
STA LOW 
LDA #S7F 
LN STA (LOW),Y 
INY 
CPY #$27 
BLT LN 
kkkkkkkkkk MAIN PROGRAM **XXkkKkk*kX 
JSR INIT ;SET LINE & DEPTH 
PADDLE JSR PDLE ;READ PADDLE 0 
JSR DRAW ; DRAW 
LDA DELAY 
JSR WAIT ; DELAY 
JSR DRAW ; ERASE 
JMP PADDLE ;READ PADDLE AGAIN 
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6096: 
6098: 
609B: 
609E: 
609F: 
60Al1: 
60A4: 


60A5: 
60A7: 
60AA: 
60AD: 
60AE: 
60B1: 
60B3: 
60B6: 
60B8: 
60BB: 
60BD: 
60BF: 
60C2: 
60C3: 
60C5: 
60C8: 
60CA: 
60CD: 
60D0: 
60D3: 
60D6: 
60D7: 
60D9: 
60DB: 
60DD: 
60E0: 
60E3: 
60E5: 
60E8: 
60EB: 
60EE: 
60F 1: 
60F4: 
60F7: 
60F8: 
60F9: 
60FC: 
60FE: 
6101: 
6103: 
6105: 
6107: 
610A: 
610B: 
610D: 
610F: 


03 
04 


60 
60 


60 


FB 
60 


60 


60 


60 


60 


60 


60 
60 
60 
60 


60 
60 


60 
60 
60 
62 
60 
63 


60 


60 


60 


AKKKKKKKKK SUBROUTINES **kRRKKKKK 


INIT 


LDA 
STA 
STA 
CLC 
ADC 
STA 
RTS 


#SAA 
LINE 
LINEA 


#S0D 
DEPTH 


KKKKKKKKKKKKKKKKKKK KKK 


PDLE 


PADDLE1 
PADDLE2 


PADDLE3 


PADDLE4 


PADDLE5 


LOAD 


LDX 
JSR 
STY 
TYA 
CMP 
BLT 
CMP 
BEQ 
LDA 
CMP 
BGE 
LDA 
CLC 
ADC 
CMP 
BLT 
LDA 
STA 
JMP 
LDA 
SEC 
SBC 
BGE 
LDA 
STA 
CMP 
BGE 
LDA 
JMP 
LDY 
LDA 
STA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
CPY 
BLT 
RTS 


#$00 
PREAD 
PDL 


MHORIZ 
PADDLE3 
MHORIZ 
PADDLE1 
MHORIZ 
#SFA 
PADDLE1 
MHORIZ 


#$05 
PDL 
PADDLE2 
PDL 
MHORIZ 
PADDLE5 
MHORIZ 


#$05 
PADDLE4 
#$00 
MHORIZ 
PDL 
PADDLE2 
PDL 
PADDLE2 
MHORIZ 
BYTETBL,Y 
HORIZ 
OFFSET, Y 


SHPADR, X 
LOW 
SHPADR+1, X 
HIGH 

#$00 

(LOW) ,Y 
TEMP, Y 


#$27 
LOAD 


;READ PADDLE 0 


;IF MHORIZ > PDL, 

SUBTRACT 5 FROM MHORIZ 
;IF MHORIZ = PDL, 

SET MHORIZ = PDL 
;IF MHORIZ < PDL, 

BUT >= 250, 

SET MHORIZ = PDL 

;IF < 250, ADD 5 TO MHORIZ 


;DON'T GO PAST PDL POSITION 


;SUBTRACT 5 FROM MHORIZ 


;BRANCH IF >= 0 
SEF: <0, 
SET MHORIZ = 0 
;DON'T GO PAST PDL POSITION 


;CONVERT TO SCREEN BYTE (0 —- 36) 


;GET SHAPE NUMBER 
;LOAD SHAPE INTO TEMP 
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13] KRRKKKKKKKKKKKKKKKKKKKKK 


6110: A9 00 132 DRAW LDA 
6112: 8D 07 60 133 STA 
6115: AE 03 60 134 DRAW1 LDX 
6118: AC 06 60 135 LDY 
611B: BD 71 64 136 LDA 
611E: 85 1B 137 STA 
6120: BD 31 65 138 LDA 
6123: 85 1A 139 STA 
6125: AE 07 60 140 LDX 
6128: Bl 1A 141 LDA 
612A: 5D 09 60 142 EOR 
612D: 91 1A 143 STA 
612F: C8 144 INY 
6130: Bl 1A 145 LDA 
6132: 5D OA 60 146 EOR 
6135: 91 1A 147 STA 
6137: C8 148 INY 
6138: Bl 1A 149 LDA 
613A: 5D OB 60 150 EOR 
613D: 91 1A 151 STA 
613F: EE 07 60 152 INC 
6142: EE 07 60 153 INC 
6145: EE 07 60 154 INC 
6148: EE 03 60 155 INC 
614B: AD 03 60 156 LDA 
614E: CD 05 60 157 CMP 
6151: 90 C2 158 BLT 
6153: AD 04 60 159 LDA 
6156: 8D 03 60 160 STA 
6159: 60 161 RTS 


615A: 00 OE O01 162 SHAPE] HEX 
615D: 00 OE 01 00 OE Ol 


6163: 00 44 01 163 HEX 
6166: OO 7F 00 60 1F 00 
616C: 30 1F 00 164 HEX 
616F: 18 1F 00 00 1F 00 
6175: 00 1F 00 165 HEX 
6178: 00 1B 00 40 31 00 
617E: 60 60 00 166 HEX 


6181: 00 1C 02 167 SHAPE2 HEX 
6184: 00 1C 02 00 1C 02 


618A: 00 08 03 168 HEX 
618D: 00 7E 01 00 3E 00 
6193: 00 3F 00 169 HEX 
6196: 40 3F 00 00 3E 00 
619C: 00 3E 00 170 HEX 
619F: 00 36 00 00 36 00 
61A5: 00 63 00 171 HEX 


61A8: 00 38 04 172 SHAPE3 HEX 
61AB: 00 38 04 00 38 04 


61B1: 00 10 06 173 HEX 
61B4: 00 7C 03 00 7C 00 
61BA: 00 7C 00 174 HEX 


61BD: 00 7E 00 00 7C 00 


#$00 
XCOUNT 
LINE 
HORIZ 
HI,X 
HIGH 
LO,X 
LOW 
XCOUNT 
(LOW) ,Y 
TEMP , X 
(LOW),Y 


(LOW),Y 
TEMP+1 , X 
(LOW),Y 


(LOW),Y 
TEMP+2, X 
(LOW), Y 
XCOUNT 
XCOUNT 
XCOUNT 
LINE 
LINE 
DEPTH 
DRAW1 


LINEA ;RESET LINE 


LINE 

O0O0E0 1000E01000E01 
004401007F00601F00 
301F00181F00001F00 
001F00001B00403100 


606000 
001C02001C02001C02 


000803007E01003E00 
003F00403F00003E00 
003E00003600003600 


006300 
003804003804003804 


00 1006007C03007C00 


007C00007E00007C00 


;SHAPE TABLES 
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61C3: 00 38 00 175 HEX 003800003800006C00 
61C6: 00 38 00 00 6C 00 
61CC: 00 46 O01 176 HEX 004601 


61CF: 00 70 08 177 SHAPE4 HEX 007008007008007008 
61D2: 00 70 08 00 70 08 


61D8: 00 20 0C 178 HEX 00200C007807007801 
61DB: 00 78 07 00 78 Ol 

61E1l: 00 78 01 179 HEX 007801007801007801 
61E4: 00 78 01 00 78 O1 

61EA: 00 70 00 180 HEX 007000007000007000 
61ED: 00 70 00 00 70 00 

61F3: 00 70 00 181 HEX 007000 


61F6: 00 60 11 182 SHAPES HEX 006011006011006011 
61F9: 00 60 11 00 60 11 


61FF: 00 40 18 183 HEX 00401800700F007003 
6202: 00 70 OF 00 70 03 

6208: 00 70 03° 184 HEX 007003007803007003 
620B: 00 78 03 00 70 03 

6211: 00 60 01 185 HEX 006001006001003003 
6214: 00 60 01 00 30 03 

621A: 00 18 06 186 HEX 001806 


621D: 00 40 23 187 SHAPE6 HEX 004023004023004023 
6220: 00 40 23 00 40 23 


6226: 00 00 31 188 HEX 00003100601F006007 
6229: 00 60 IF 00 60 07 

622F: 00 70 07 189 HEX 007007007807006007 
6232: 00 78 07 00 60 07 

6238: 00 60 07 190 HEX 006007006006006006 
623B: 00 60 06 00 60 06 

6241: 00 30 OC 191 HEX 00300C 


6244: 00 00 47 192 SHAPE7 HEX 000047000047000047 
6247: 00 00 47 00 00 47 


624D: 00 00 62 193 HEX 00006200403F00700F 
6250: 00 40 3F 00 70 OF 
6256: 00 58 OF 194 HEX O0580FO04COFO0400F 
6259: 00 4C OF 00 40 OF 
625F: 00 40 OF 195 HEX 00400F00400D006018 
6262: 00 40 OD 00 60 18 
6268: 00 30 30 196 HEX 003030 

BYTETBL 

OFFSET 

HI 

LO 
1521 bytes 


Symbol table - numerical order: 


LOW =$1A HIGH =$1B LINE =$6003 LINEA  =$6004 
DEPTH =$6005 HORIZ  =$6006 XCOUNT =$6007 DELAY =$6008 
TEMP =$6009 PDL =$6030 MHORIZ =$6031 SHPADR =$6032 
PGM =$6040 CLR1 =$6054 CLR =$6058 LN =$607A 
PADDLE =$6084 INIT =$6096 PDLE =$60A5 PADDLE1 =$60CA 
PADDLE2 =$60CD PADDLE3 =$60D3 PADDLE4 =$60E0 PADDLE5 =$60EB 
LOAD =$6105 DRAW =$6110 DRAWl =$6115 SHAPE] =$615A 
SHAPE2 =$6181 SHAPE3 =S61A8 SHAPE4 =$61CF SHAPE5 =S61F6 
SHAPE6 =$621D SHAPE7 =$6244 BYTETBL =$626B OFFSET =$636E 
HI =$6471 LO =$6531 GRAPHICS=$C050 MIXOFF =$C052 


PAGE] =$C054 HIRES =$C057 PREAD =SFBIE WAIT =$FCA8 


Bs 


Gs 
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PADDLE READ 


No 
No 
No 


ADD 5 TO MHORIZ 
No 
MHORIZ < PDL? 
Yes 


SUBTRACT 5 
FROM MHORIZ 
No 
MHORIZ >= 0? ae MHORIZ = 0 
MHORIZ >= PDL? 


No Ye 


PDL —> MHORIZ 


CONTINUE 
PROGRAM 


n 


Run Program 15-2 and compare it to Program 6-2. I think you'll agree the 
effect is more pleasing and is reminiscent of the type of paddle control one sees 
in Invader-type games. 

The paddle smoothing routine can be used in any program using paddles to 
move shapes in any direction and the maximum speed of movement can be 
altered simply by changing the value to be added or subtracted. This routine also 
allows one to incorporate a DRAW-DRAW routine into the program. For vertical 
animation, we simply limit the maximum move to the border size. For horizontal 
animation, we need only limit the maximum move to one byte or less. 

One final note. I haven’t combined the paddle smoothing routine with the 
paddle movement test of Program 15-1. This is something for you to do, as we'll 
talk about in the last chapter. 


Integrating BASIC with 
Assembly Language Programs 


There once was a woman named Kit, 
Whose husband gave her a fit. 
Computing all night 

He neglected her plight 

So they drifted apart, bit by bit. 


(This has nothing to do with this chapter, but it’s hard writing these things.) 


(i isn’t anything that can be done in BASIC that can’t be done in 
assembly language, but for some things BASIC is much easier. Complex arith- 
metic, for example, is much simpler using BASIC. In assembly language, you can 
add, subtract, multiply, and divide, but in BASIC a whole host of arithmetic func- 
tions are available, such as SQR, ABS, INT, SIN, COS, TAN, RND, EXP, LOG, etc., 
and working with formulas is made simpler with the DEF FN instruction (see the 
Apple BASIC manual for details). Of course, all these functions can be derived 
from the four basics of adding, subtracting, multiplying, and dividing, but if speed 
is not required, it’s much easier to let the BASIC interpreter do it for you. If 
speed is required (let’s say you want to plot sine curves on the hi-res screen— 
easy but slow in BASIC), you’ll need to use assembly language. Deriving sine 
curve equations from the four basic arithmetic functions is about as much fun as 
defleaing your dog but fortunately, if you need to do this, there are texts on the 
market that deal with complex number manipulations using assembly language. 

Printing to the text screen is often used with hi-res graphics programs, 
either for displaying whole page instructions or for printing on the bottom four 
lines of page 1 with the mixed text and graphics mode. (This is different from 
printing on the hi-res screen itself—here one needs to use shapes in the form of 
letters in the same way as we used number shapes for displaying the score in the 
game program.) Text printing can be done using BASIC or assembly language 
and in fact is relatively easy with assembly language, because one can use several 
built-in Apple subroutines to take care of the housekeeping chores. But, to my 
mind, nothing is easier than the BASIC PRINT statement. The only advantage of 
assembly language for text printing is speed, but this is like saying you can travel 
a distance of 1 foot faster going 100 mph than going 50 mph. Printing in BASIC 
is so fast, unless you’re using some kind of convoluted code, that any speed 
advantage of assembly language is more academic than real. 


as 


gs 
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MEMORY ALLOCATION 


TORR R eee eee eee eee Eee EEE EEE EEE TESTES EEE EEHTOEES 


Dealing with a program that uses both BASIC and assembly language, or with 
a program that uses both BASIC and hi-res graphics whether or not assembly 
language is also used, requires that attention be paid to how memory is allo- 
cated. We have to be careful that BASIC, assembly language, and the hi-res 
screens don’t run into each other, that is, do not occupy the same memory loca- 
tions; otherwise, we will be left with an unworkable program. To see how to do 
this, let’s consider first how BASIC uses memory. 

On startup, the Apple assigns $800 (2048) to the bottom of BASIC and 
$9600 (38400) to the top(for machines with 48K minimum RAM,— see Chapter 
2). The reason a top has to be assigned is that while the BASIC program starts at 
the bottom, variables are stored after the end of the last program line, and string 
variables are stored at the top and work their way down. Thus, any non-BASIC 
program code such as assembly language or a hi-res screen between the top and 
bottom may interfere with the BASIC program itself, especially if string variables 
are used. Even if they’re not, it’s always a good idea to reserve an area of memory 
for BASIC to ensure no overlap with the hi-res screens or with assembly language 
code. There are two solutions to this problem—we either change the top or 
change the bottom of BASIC, the particular choice depending on how much 
memory we want to allocate to the different parts of the program and which 
hi-res screen we want to use. 

There are four basic situations to consider: 


1. Page 1 hi-res screen, BASIC below Page 1, assembly language above 
Page 1: 


$9600 (38400) 


ASSEMBLY LANGUAGE 
$4000 (16384) 


PAGE 1 
$2000 (8192) 


BASIC 


$0800 (2048) 


ASSEMBLY LANGUAGE 22000 BYTES 
BASIC 6000 BYTES 


The bottom of BASIC is the startup address, $800 (2048). We want to move 
the top, the area for string variable storage, to the bottom of hi-res screen Page 1, 
which starts at $2000 (8192). We do this in the beginning of the BASIC program 
by 


1 HIMEM:8192 


(Note that BASIC uses only decimal addresses, not hex.) This instruction ensures 
that BASIC will occupy a memory block that will not be interfered with by the 
hi-res screen or the assembly language code. The assembly language program 
itself could be given a starting address of $4000, that is, just above Page 1. The 
result of all this is that BASIC would have about 6000 bytes of available memory, 
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whereas the assembly language program would have about 22,000 bytes. (If we 
want to use both hi-res screens, the assembly language program would be started 
at $6000 and would have about 14,000 bytes of memory. ) 


2. Page 2 hi-res screen. BASIC below Page 2, assembly language above 


Page 2: 


ASSEMBLY LANGUAGE 
PAGE 2 
BASIC 


ASSEMBLY LANGUAGE 14000 BYTES 


$9600 (38400) 


$6000 (24576) 


$4000 (16384) 


$0800 (2048) 


14000 BYTES 


Here we want to move the top of BASIC to $4000 and we do this by 


1 HIMEM:16384 


The assembly language code would start at $6000 and have about 14,000 bytes 
of memory, and BASIC would have also about 14,000. 


3. Page 1 hi-res screen, BASIC above Page 1, assembly language below 


Page 1: 


BASIC 


ASSEMBLY LANGUAGE 


ASSEMBLY LANGUAGE 


$9600 (38400) 


$4000 (16384) 


$2000 (8192) 


$0800 (2048) 


6000 BYTES 
22000 BYTES 


Moving the bottom of BASIC is a little more complicated than moving the 
top. There is no single command to do this; rather a series of POKEs is required. 
Locations 103 and 104 have to be POKEed with certain values and the new start 
of BASIC has to be POKEed with zero because BASIC must always start with zero 
in the first position. There is a formula that can be used to calulate the values to 
be POKEed into 103 and 104, but the easiest thing to do is incorporate the 
formula into a BASIC instruction itself and let the program do the calculating for 


you. What we do is set up a separate program called a “loader” program and use 
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it both to change the bottom of BASIC and run the main program. The “loader” 
program consists of one line (make sure you save the program before running it 
because it self-destructs on running): 


1 LOC = 16384 + 1:POKELOC — 1,0:POKE 103,LOC — INT(LOC/256) * 256: 
POKE 104,INT (LOC/256): PRINT CHR$(4); “RUN PROGRAM” 


Running this program will set the bottom of BASIC to $4000 and will run the 
main program labeled PROGRAM, assuming of course it’s on the same disk. In 
this case, BASIC will have about 22,000 bytes of available memory and the 
assembly language program about 6,000 bytes, assuming we start it at $800. 


4. Page 2 hi-res screen, BASIC above page 2, assembly language below 
Page 2: 


$9600 (38400) 
$6000 (24576) 


$4000 (16384) 


ASSEMBLY LANGUAGE 


$0800 (2048) 


ASSEMBLY LANGUAGE 14000 BYTES 
BASIC 14000 BYTES 


The only change here is defining LOC in the “loader” program as 24576 + 1. 
Now both BASIC and the assembly language program will have about 14,000 
bytes of available memory. 

These are the four basic memory allocation situations, but variations are 
sometimes required. For example, and as mentioned above, if we want to use 
both hi-res screens, things would have to be shifted around, removing memory 
from either BASIC or the assembly language program, depending on the particu- 
lar configuration we want. Also, because we can start the assembly language 
program anywhere, the actual memory available for assembly language is 
variable. 

Other situations may require other changes. For example, suppose we're 
using the number 3 configuration with BASIC above Page 1. If our assembly 
language program requires 8,000 bytes instead of the 6,000 available, we could 
move the bottom of BASIC to around 19,000 instead of 16,384 and use the extra 
memory for assembly language code. We could use this memory block, for 
example, to store our line address and offset tables. Assembly language programs 
do not require a continuous block of uninterrupted memory, but when we split 
up such a program, we have to be careful where we do it. For example, we 
wouldn’t want an interruption in the middle of a draw routine. We can, however, 
place any block of code that is accessed only by its label anywhere we want. The 
only caveat, as discussed before, is that relative branch instructions have a range 
limited to 127 bytes forward and 128 bytes back—in these cases, we use the 
relative branch to go to a nearby JMP instruction, which has no range limitation. 
In the example cited above, we would set up our main program with ORG $800 
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and place the line address and offset tables starting at $4000, making sure they 
do not extend into the start of BASIC. 

The particular configuration we would choose obviously depends on the 
program requirements. If we need Page 1 to display mixed text and graphics, we 
must use configuration 1 or 3. If the assembly language program is long and 
BASIC short, we would choose 1; conversely, configuration 3 would be appro- 
priate for long BASIC and short assembly language programs. Keep in mind that 
because we can place assembly language blocks almost anywhere we want and 
we can vary the top and bottom of BASIC, there is a large amount of flexibility in 
how to allocate available memory for any particular program application. 

If your program lengths are running close to the available memory limits, it’s 
important to know the program size so you can plan accordingly. This is no 
problem with assembly language programs, as most assemblers will display the 
length in bytes after assembly. To determine the length of a BASIC program in 
bytes, load the program and type in the following instructions (with thanks to 
Beagle Bros. ): 


PRINT (PEEK (175) ) + PEEK (176) * 256) — (PEEK (103) + PEEK (104) * 256) 


If you find your programs are too large to fit, don’t despair just yet. Assembly 
language programs can be shortened by writing more efficient code, but this is 
probably applicable only to very experienced programmers. An easy trick to 
extend total available memory is to include the following as the first line of your 
BASIC program: 


1 PRINT CHR$(4);“MAXFILES1” 


This extends the upper limit of memory from $9600 (38400) to $9AAG6 (39590) 
(for 48K minimum machines), making available an extra 1,190 bytes. The price 
you pay for this is that only one text file can be open at one time (see the Apple 
DOS Programmer’s Manual for more details). Another thing you can do is use 
one of the commercially available optimizing programs, such as those available 
from Beagle Bros., to crunch your BASIC programs. You’d be amazed at how 
much space can be saved using one of these utilities, but save this for last—such 
crunched programs are virtually impossible to edit. If you’re really desperate, try 
one of the DOS mover programs (if you have 64K)—you can realize some 
10,000 bytes of extra memory this way. 


ZERO PAGE USAGE 
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We mentioned in a previous chapter that we have to be careful in choosing 
which zero page addresses to use in our assembly language programs. This is 
because zero page is used extensively by Applesoft BASIC and DOS and so if 
we're using BASIC along with our assembly language program or if we're using 
DOS commands, either from BASIC or from assembly language, we have to 
search for “open” zero page addresses and there aren’t many. For the Apple Ile, 
safe zero page addresses are $06 to $09, $1A to $1C, $EB to $EF, and $F9 to $FC. 
These are probably okay for other Apple IIs but I would check the Reference 
Manual for your particular machine just to make sure. Of course if you’re not 
using BASIC or DOS, then any zero page address can be used, but it’s probably 
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best to stick with the safe ones—you never know when you might be adding 
DOS commands or BASIC to your assembly language program. 


GRAPHICS AND TEXT COMMANDS FROM BASIC 
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You’ve seen some of these instructions before in Chapter 3 and they are all 
described in the Apple BASIC manual but some rather obtusely—a brief review is 
worthwhile. 


GR_ Clears and displays low resolution screen. 


HGR Clears and displays hi-res screen Page 1 (mixed text and graphics with 
the bottom four lines displaying text). 


HGR2_ Clears and displays hi-res screen Page 2. 
TEXT Displays the full screen text page without clearing it. 


HOME Clears but does not display the text page and sends the cursor to the 
top left position. When used with hi-res screen Page 1 in mixed text and 
graphics mode, the bottom four lines are cleared and the cursor is posi- 
tioned at VTAB 21 without affecting the graphics display. The combined 
instructions TEXT:HOME will display and clear the entire text page regard- 
less of which hi-res screen is being used. 


POKE 49232,0 (or POKE —16304,0) (In this and the following examples, 
either number can be POKEed but Integer BASIC requires poking the nega- 
tive number.) Accesses the graphics mode, either lo-res or hi-res depending 
on the status of other soft switches, without clearing the graphics screen. 


POKE 49233,0 (POKE —16303,0) Selects the text page without clearing it: 
the text page margins can be altered to produce a text “window;” unlike the 
TEXT command, this instruction leaves the text “window” settings intact. 


POKE 49234,0 (POKE -—16302,0) Selects full screen graphics for hi-res 
screen Page 1. 


POKE 49235,0 (POKE —16301,0) Selects mixed text and graphics for hi-res 
screen Page 1 (not necessary after an HGR if full screen graphics has not 
been selected). 


POKE 49236,0 (POKE —16300,0) Selects Page 2 without clearing it. 
POKE 49237,0 (POKE —16299,0) Selects Page 1 without clearing it. 


POKE 49238,0 (POKE —16298,0) Selects low resolution mode (not necessary 
after a GR). 


POKE 49239,0 (POKE —16297,0) Selects high resolution mode (not neces- 
sary after an HGR or HGR2). 


ACCESSING ASSEMBLY LANGUAGE PROGRAMS 
FROM BASIC 
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When combining BASIC with assembly language, program control essentially 
rests with the BASIC program. A particular assembly language program address is 
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accessed from BASIC by the instruction CALL address (decimal). Thus, the 
command CALL 24576 would send the program to the machine code beginning 
at $6000. The program returns to BASIC when it reaches an RTS opcode that 
does not follow a JSR. If there is no such RTS, the program remains in the assem- 
bly language portion. For example: 


BASIC MACHINE CODE 
CALL 24576 
: JSR 
_ “RTS 
RTS 


CALL 24882 $6100 


To see how this works in an actual program, let’s use BASIC in our game 
program to display the game instructions before starting. On our disk we would 
have the game program labeled GAME. The BASIC program would look like this: 


10 PRINT CHR$(4);“BLOAD GAME,A$6000” 

20 TEXT: HOME 

30 PRINT “GAME INSTRUCTIONS ........ PRESS ANY KEY TO CONTINUE” 
40 GET A$ 

50 HGR:POKE — 16302,0 

60 CALL 24576 


One of the advantages of using BASIC is that BASIC commands often can 
substitute for assembly language code. In this instance, for example, HGR is used 
to display and clear the Page 1 hi-res screen and POKE —16302,0 displays full 
screen graphics. As this is done in the beginning, speed is not required, and the 
call to Page 1 full screen graphics and the clear screen routines in the GAME 
program become unnecessary and can be deleted. Once the call to $6000 is 
made, the program stays entirely in the GAME program, because there is no RTS 
not preceded by a JSR. 

Let’s modify the GAME even further by changing the restart protocol. In the 
STOP2 subroutine, instead of the press any key routine we substitute an RTS. 
When the game ends, this will send the program back to BASIC where we will 
now display another text screen containing, for example, a scoring summary: 


70 TEXT: HOME 

80 PRINT “GAME SUMMARY. ... PRESS ANY KEY TO CONTINUE” 
90 GET A$ 

100 GOTO 50 


The TEXT instruction calls the text screen and HOME clears it. We restart 
the game by going back to line 50. Alternatively, if we want to display the game 


instructions again, line 100 would read GOTO 20. Other variations are possible. 
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Suppose we want to restart just by going back to the game instructions: 
70 GOTO 20 


This combination of printing in BASIC and displaying graphics in assembly 
language is quite easy and very useful, not only for game programs but also for a 
multitude of other applications. In addition, BASIC can be used not only for 
printing but also for graphics itself, in conjunction with assembly language graph- 
ics. This is possible because the hi-res screen doesn’t care where its instructions 
come from and so one can freely intermix graphics from BASIC, assembly lan- 
guage, and even from Apple shape tables. The only caveat is that pleasant results 
are obtained only if the non-assembly language graphics do not involve them- 
selves in routines that require speed and smooth animation. Perhaps the greatest 
utility of this type of intermixing is in educational programs. Such programs 
generally do not involve continuous, rapid animation as in games, but rather 
present a series of lessons, each one consisting of some text and a graphics 
presentation that consists only partly of animation routines. 

To see how we can profitably mix text and graphics from a variety of 
sources, let’s design a small educational program that illustrates the principle 
that objects fall down unless restrained (the profit comes from selling the pro- 
gram to kindergarten computer workshops). We’re going to use hi-res screen 
Page 1 with mixed text and graphics and use the bottom four lines for the 
302 explanatory text. Because our BASIC program is small, we'll place it below 
ay Page 1 with HIMEM:8192. We're also going to use a shape table and we'll load 

this above Page 1 at $4000 (16384). The assembly language program will be 
loaded above the shape table, at $6000 (24576). 
The screen will show a ball suspended by a rope above a container. 
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Assembly 
ses Language 
“—~ HPLOT 


After some text instructions, the rope will be cut at a site indicated by an 
arrow—the arrow will then disappear and the ball will fall into the container. 
The container and rope will be drawn from BASIC by HPLOTting. The arrow will 
come from the shape table (designed with the aid of a utility program such as 
Apple Mechanic from Beagle Bros. ) and the ball will be drawn and animated 
with our assembly language program. The Page 1 screen will be displayed and 
cleared from BASIC and we can begin the assembly language program at $6000 
with just drawing the ball. This draw routine ends with an RTS, say at $64FF, and 
thus will return to BASIC once the ball is drawn. At $6500 (25856), the program 
continues with the ball animation and also ends with an RTS to get back to 
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BASIC again. The program would look like this (the shape table and assembly 
language program will already have been BSAVEd on the disk: 


1 HIMEM:8192 :REM BASIC BELOW PAGE 1 

10 PRINT CHR$(4);“BLOAD SHAPE TABLE,A$4000” 

20 PRINT CHR$(4);*BLOAD ASSEMBLY LANGUAGE,A$6000” 

30 SH = 16384 ‘REM LOCATION OF SHAPE TABLE 

40 POKE 232,SH - INT(SH/256) * 256:POKE 233, INT(SH/256) :REM TELLS PROGRAM 
WHERE SHAPE TABLE IS LOCATED 

50 HGR- :REM SELECTS HI-RES PAGE 1 

60 HCOLOR = 3. :REM COLOR WHITE 

70 ROT = 0:SCALE = 1 :REM NEEDED FOR SHAPE TABLE DRAW 

80 HOME: VTAB21:PRINT “WHAT WILL HAPPEN WHEN THE ROPE IS CUT?”:PRINT “PRESS ANY 
KEY TO CONTINUE” :REM PRINTS ON BOTTOM 4 LINES 

90 HPLOT 100,50 TO 100,100 TO 150,100 TO 150,50 :REM PLOTS CONTAINER 

100 HPLOT 125,10 TO 125,20 :REM PLOTS ROPE 

110 DRAW 1 AT 125,20 :REM DRAWS ARROW 

120 CALL 24576 :REM DRAWS BALL 

130 GET A$ :REM WAIT FOR KEYPRESS 

140 HOME: VTAB21:PRINT “LET’S DO IT. PRESS ANY KEY TO CUT THE ROPE” :REM CHANGES 


TEXT IN BOTTOM 4 LINES BUT LEAVES GRAPHICS INTACT 

150 GET A$ 

160 XDRAW 1 AT 125,20 :REM ERASES ARROW 

170 CALL 25856 :REM MOVES BALL DOWN 

180 HOME: VTAB21:PRINT “YOU WERE RIGHT! THE BALL FALLS”:PRINT “PRESS ANY KEY TO 
CONTINUE 

190 GET A$ 

200 TEXT:HOME: PRINT “IF YOU LIKED THIS PROGRAM, TELL MOMMY TO BUY IT.” :REM 
PRINTS ON TEXT PAGE 


The variations on this theme are endless. We could clear the screen with 
HGR and continue with more graphics from any source; we could draw the 
container, rope, and arrow in color by specifying a color with HCOLOR and, of 
course, draw the ball in color in the assembly language program; we could make 
a larger container by changing SCALE; we could switch back and forth from text 
to graphic screens without erasing them by using the appropriate POKEs, and so 
on. The reason this works is that HPLOT and DRAW are very fast for simple 
shapes that are displayed and not moved—assembly language is required only for 
the animation. And let me emphasize that assembly language is indeed 
required— moving the ball around from BASIC or shape tables would produce an 
animation that would immediately mark you as a rank amateur, deserving only of 
scorn. From personal experience, I can tell you that professional-looking anima- 
tion is a strong selling point for these types of programs. 
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Modification 


| ‘ e’ve covered quite a bit since constructing the game program, but, of 
course, the coverage has not been exhaustive (and I don’t mean it hasn’t been 
tiring). My hope is that this book has provided the necessary background in 
hi-res assembly language graphics so that you can now profitably examine more 
advanced texts and those rather obtuse (I hope now less obtuse ) magazine arti- 
cles that pop up now and then to learn even more about this subject, either for 
constructing your own games or indeed for any of the many other applications 
that find hi-res graphics useful. You may not know enough yet to construct a 
really super arcade-type game, but you certainly have the knowledge to produce 
professional results for interesting games and for educational and other types of 
programs. And, of course, you’ve also learned something about how to use 
assembly language other than just to move numbers around. 

As mentioned in the Introduction, any learning process is enhanced by doing 
and not just observing. In this spirit, below I will discuss suggestions for modify- 
ing the game program using techniques covered in Parts One and Two that were 
not incorporated into the game. You may find that going through the exercises 
in this chapter will teach you more about hi-res graphics and assembly language 
than all the other chapters combined, and so I urge you to sharpen your typing 
fingers and go to work. 


1. Use the DRAW-DRAW protocol for both the man and the plane, making 
sure to incorporate the appropriate borders. As neither shape is used for colli- 
sion detection, DRAW-DRAW will work and will produce smoother animation. 
For the man shape, use the paddle smoothing routine (necessary for DRAW- 
DRAW as discussed in Chapter 15) and the test for non-movement of paddle to 
eliminate flicker. 
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2. Work on the sound routines for the plane and explosions and perhaps for 
the bullet firing. 


3. Have planes appear at several different line positions and have some going 
right to left instead of just left to right. Make sure each line position is some 
multiple of 8 from the bullet firing line to ensure collision detection with the 
bullet; alternatively, use multiple line collision testing with the bullet shape. 


4. Have the planes drop bombs and use the bomb shape for collision testing. 
Use the line position of a collision to determine what the bomb has hit—if at the 
bottom, it hits the bottom line; above the bottom, but not above the top of the 
man, it hits the man; above the man, it hits a bullet. Include an explosion routine 
for each collision. Have the game end if the man is hit. 


5. Change the scoring protocol to decrement by 1 each time a bullet is 
fired, increment by 3 for each plane hit and by 5 for each bomb hit. A plane is hit 
if only a bullet detects a collision. A bomb is hit if both the bomb and bullet 
detect a collision. 


6. Use BASIC to display the game instructions. 


7. Draw the plane in color, changing the bullet shape to a width of 2 bits to 
ensure collision detection. Draw the explosion shapes in orange and yellow. 
Draw flickering orange lines directly behind the plane to simulate engine 
exhaust. Enlarge the man shape and draw in color. 


8. Reprogram the game in double hi-res and in double hi-res color. For the 
latter, use dummy white shape tables for collision detection. 


Well, that’s it. Good luck—and remember, #$2B or not #$2B is not the only 
question. 
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Appendix: 
Assembly Language 
Commands 


N., all assembly language commands for the Apple II 6502 microproces- 
sor are listed here, mainly just those referenced in the text. In addition, the 
descriptions are not comprehensive. A complete set, with complete descriptions, 
can be found in texts on assembly language programming. I especially recom- 
mend Assembly Lines: The Book, by Roger Wagner, Roger Wagner Publishing 
Co., Santee, CA, 1982. 


ADC (ADd with Carry) Adds the contents of a memory location or a direct 
value to the contents of the Accumulator, plus the Carry bit if it was set. The 
result is stored in the Accumulator. ADC is usually preceded by a CLC in 
case the Carry bit has inadvertently been set. A common use of ADC is to 
add two numbers together. 


Example 


CLE 
LDA #$01 
ADC #$01 :Accumulator now contains #$02 


CLC 

LDA #$01 

ADC $4000 '$4000 contains #$04 
STA $5000 ;$5000 now contains #$05 


AND (Logical AND) Compares each bit of the Accumulator with each corres- 
ponding bit of the contents of a memory location or a direct value. If both 
bits are 1, the result is 1; otherwise the result is 0. The result is stored in the 
Accumulator. This command is useful for collision detections. 
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Example 
Accumulator 00011101 
Number 01110100 
Result 00010100 


ASL (Arithmetic Shift Left) Each bit of the Accumulator or the contents of a 
memory location is moved one position to the left. A 0 is placed in bit 0 (the 
rightmost bit) and the high bit is placed in the Carry. One use of ASL is to 
multiply by factors of two. 


C <---76543210<--- “0” 


BCC (Branch on Carry Clear) The branch is taken if the Carry bit is clear; 
i.e., zero. The pseudo-op BLT (Branch if Less Than) can be used by some 
assemblers, because BCC is often used after a comparison instruction to test 
if the Accumulator holds a value less than a specified value; if it does, the 
Carry bit is clear and the branch is executed. 


Example 
LDA #$05 307 
CMP #$06 
BCC CONTINUE _— ;The branch is taken & 


BCS (Branch on Carry Set) The branch is taken if the Carry bit is set, i-e., 1. 


The pseudo-op BGE (Branch if Greater or Equal) This can be used by 
some assemblers as BCS is often used after a comparison instruction to test if 
the Accumulator holds a value equal to or greater than a specified value; if it 
does, the Carry bit is set and the branch is executed. 


Example 


LDA #$05 
CMP. #$04 
BCS CONTINUE _ ; The branch is taken 


BEQ (Branch if EQual) Branches if the result of a previous operation is zero. 
It is often used to compare the value in the Accumulator or the contents of a 
memory location to a specified value, which itself can be the contents of a 
memory location or a direct value. If the values are equal, the branch is 
taken. 


Example 


LDA LINE 
CMP DEPTH 
BEQ CONTINUE _—_ ;The branch is taken if LINE = DEPTH 


BEQ can also be used to test for a register reaching a zero value. 
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Example 


LDY #$06 
LOOP LDA $4000 
STA $5000 
DEY 
BEQ CONTINUE ;The branch is taken when Y = 0 
JMP LOOP 


BIT Compare Accumulator BITs with contents of memory. BIT can be used to 
access a soft switch without changing the contents of the Accumulator. 


Example 
BIT $C030 = ;Tweaks speaker 


BMI (Branch on MInus) Branches if any operation produces a result in the 
range #$80 to #$FF, i.e., high bit set. One use is to test for a keypress. 


Example 
LOOP LDA $C000 ;If no key pressed, value < #$80 
BMI CONTINUE ;Branches if key pressed 
JMP LOOP 


BMI can also be used to terminate a loop when a value reaches any number 
from #$80 to #$FF. 


Example 
LDY #$70 
LOOP DEY 
BMI CONTINUE ;Branch taken when Y wraps around to #$FF 
JMP LOOP 


BNE (Branch on Not Equal) Branches if the result of any operation is non- 
zero. 


Example 
LDA #$06 
CMP #$05 
BNE CONTINUE ;Branch is taken 


BNE can also be used in loops to test for non-zero. 


Example 
LDY #$06 
LOOP DEY 
BNE LOOP ;Branches until Y = 0 


RTS 


eee eee eee eee eee eee ree eee ere eee eee eee ee eee ee ee 


PPPPePTe SEPT erTeeerreerreeree errr ee eereere errr ee rre rere errr errr eee eee eee eee eee Appendix—Assembly Language Commands 


BPL (Branch on PLus) Branches if any operation produces a result in the range 
#%00 to #$7F, ie., high bit not set. BPL can be used to test for a key press. 


Example 
LOOP LDA $CO000 ;If no key pressed, value < #$80 


BPL LOOP ;Branches until key is pressed 
JMP CONTINUE 


BPL can also be used to terminate a loop when a value reaches any number 
outside the range #$00 to #$7F. 


Example 
LDY #$70 
DEY 
LOOP BPLLOOP _ :Branches until Y = #$FF 
RTS 


Note: Conditional branches are limited to 127 bytes forward and 128 bytes back. 


BRK (BReaK) Halts execution of the program. This command is useful for 
debugging programs. By placing BRK at strategic locations, the program can 
be stopped and the status of the registers and memory locations examined. 


CLC (CLear Carry) Clears the Carry bit; usually used preceding an ADC 
instruction in case the Carry bit has been set accidentally somewhere else in 
the program. It can also be used to force a branch. 


Example 


CLC 
BCC CONTINUE __ ;Branch always taken 


CMP (CoMPare to Accumulator) Compares the value in the Accumulator to 
a direct value or to the contents of a memory location. CMP is used with 
comparison instructions for conditional branches. 


Example 


LDA #$06 
CMP #$07 
BCC CONTINUE 


CPX (ComPare to X register) Compares the contents of the X register to a 
direct value or to the contents of a memory location; used with con- 
ditional branch instructions. 
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Example 


LDX #$00 
LOOP LDALINE,X 
STA LINEA 
INX 
CPX #$05 
BCC LOOP ;Branches until X = 5 
RTS 


CPY (ComPare to Y register) Compares the contents of the Y register to a 
direct value or the contents of a memory location; see CPX. 


DEC (DECrement) Decrements the contents of a memory location by one. If 
the location contains #$00, the value will wrap around to #$FF. 


Example 


LDA #$00 
STA $4000 
DEC $4000 :$4000 now contains #$FF 


DEX (DEcrement to X register) Decrements the X register by one; see DEC. 
DEY (DEcrement the Y register) _Decrements the Y register by one; see DEC. 


EOR (Exclusive-OR with Accumulator) Each bit of the Accumulator is com- 
pared to the corresponding bit of a direct value or the contents of a memory 
location. If either bit is 1, the result is 1; if both bits are 1 or O, the result is 
0. The result is stored in the Accumulator. EOR is useful in drawing routines 
for both drawing and erasing. 


Example 
Accumulator 1:0.0:1-10:0'0 
Number OOO 1-10 
Result V9 O26: 1-120 


INC (INCrement memory) Increments the contents of a memory location by 
one. If the location contains #$FF, the value will wrap around to #$00 (see 
DEC). 


INX (INcrement the X register) Increments the X register by one; see INC. 
INY (INcrement the Y register) Increments the Y register by one; see INC. 
JMP (JuMP to address) Sends the program to the specified address. 


JSR (Jump to SubRoutine) Analogous to a GOSUB in BASIC, JSR sends the 
program to a subroutine at a specified address. When an RTS in the subrou- 
tine is encountered, the program returns to the program line immediately 
following the JSR (see RTS). 


LDA (LoaD the Accumulator) Loads the Accumulator with a direct value or 
the contents of a memory location. 
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Example 
LDA #$05 ;Accumulator contains #$05 
LDA $4000 ;Accumulator contains contents of $4000 


LDX (LoaD the X register) Loads the X register with a direct value or the 
contents of a memory location; see LDA. 


LDY (LoaD the Y register) Loads the Y register with a direct value or the 
contents of a memory location; see LDX. 


LSR (Logical Shift Right) Opposite of ASL; each bit of the Accumulator or the 
contents of a memory location is moved 1 position to the right. A zero is 
placed in the high bit and bit 0 (the rightmost bit) is placed in the Carry bit. 
One use of LSR is to divide by factors of 2. 


“0" ---> 76543210--->C 


NOP (No OPeration) This does what it says; no operation is performed, but 
time is used. NOP is used for debugging by disabling certain steps and can 
also be used as a time delay. 


ORA (Inclusive OR with Accumulator) Compares each bit of the Accumula- 
tor with the corresponding bit of a direct value or the contents of a memory 
location. If either or both bits are 1, the result is 1; if both bits are 0, the 3nt 
result is 0. The result is stored in the Accumulator. 


Example : 
Accumulator O20 ae70 1 
Number 0.1.0 7 0.1.0 1 
Result OF 1 Ot 4 


ROL (ROtate Left) Each bit of the Accumulator or the contents of a memory 
location is moved one position to the left. The Carry bit is placed into bit 0 
and is replaced by the high bit (see ASL). 


C<-—-76543210<-C 
ROR (ROtate Right) Each bit of the Accumulator or the contents of a memory 
location is moved one position to the right. The Carry bit is placed in the 


high bit and replaced by bit 0 (see ROL). 


C-->76543210-->C 


RTS (ReTurn from Subroutine) Returns the program to the line immediately 
following the JSR call to the subroutine (see JSR). An RTS without a preced- 
ing JSR is used to return the program to BASIC when the assembly language 
program is called from BASIC. 


SBC (SuBtract with Carry) Subtracts the contents of a memory location or a 
direct value from the Accumulator and also subtracts the opposite of the 
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Carry. The result is stored in the Accumulator. SBC should always be pre- 
ceded by SEC prior to the first subtraction. 


Example 


LDA #$05 
SEC 
SBC #$03 ;Accumulator now contains #$02 


SEC (SEt Carry) Sets the Carry bit to 1. Used before a SBC instruction and also 
can be used to force a branch. 


Example 


SEC 
BCS CONTINUE ;Branch always taken 


STA (STore Accumulator) Sends the contents of the Accumulator to a speci- 
fied memory location. The Accumulator is not affected. 


Example 
STA $4000 :$4000 contains contents of Accumulator 
STX (STore the X register) Sends the contents of the X register to a specified 


memory location (see STA). The X register is not affected. 


STY (STore the Y register) Sends the contents of the Y register to a specified 
memory location (see STX). The Y register is not affected. 


TAX (Transfer Accumulator to X register) Transfers the contents of the 
Accumulator to the X register. The Accumulator is not affected. 


TAY (Transfer Accumulator to Y register) Transfer the contents of the 
Accumulator to the Y register. The Accumulator is not affected (see TAX). 


TXA (Transfer X to Accumulator) Sends the contents of the X register to the 
Accumulator. The X register is not affected. Combined with TAY, can be 
used to transfer a value from X to Y. 


Example 
LDX #$05 ;#$05 in X 
TXA #$05 in A 
TAY ;#$05 in Y 


TYA (Transfer Y to Accumulator) Transfers the contents of the Y register to 
the Accumulator. The Y register is not affected. Combined with TAX, can be 
used to transfer a value from Y to X. 


Example 


LDY #$05 #$05 in Y 
TYA #$05 in A 


TAX ;#$05 in X 


Index 


Absolute indexing, 28 
ADC (ADd with Carry ) 


instruction, 32, 170, 306 


Addresses 
line address tables, 24-29 
memory, 9-15 
shape address tables, 57-60 
Air resistance simulation, 265 
AND (Logical AND) 
instruction 
collision detection, 116-117 
use in color drawing, 
223-224 
drawing over backgrounds 
using, 272-273 
explanation of, 306-307 
Animating shapes 
in double hi-res, 231-238 
in double hi-res color, 
244-251 
shape tables and, 4 
Animation, color 
how to draw a blue plane, 
215-220 
how to draw a green plane, 
220 
how to draw an orange 
plane, 220 
how to draw a violet plane, 
220 
how to maintain even, 215 
how to use multiple colors, 
221 


Animation, horizontal 


accessing sequential shapes, 
60-72 
double hi-res and, 231-236 
DRAW-DRAW routine and, 
77-81 
DRAW-ERASE routine and, 
61 
preshifted shapes, 54-57 
problems with color and, 
215 
temp and shape address 
tables, 57-60, 65-66 
testing for end of screen in, 
60-61 
use of separate draw 
routines for, 66-72 
Animation, internal 
definition of, 82 
how to produce, 82-88 
Animation, vertical 
double hi-res and, 231, 
236-238 
DRAW-DRAW routines and, 
48-53 
DRAW-ERASE routine and, 
48, 53 
erasing a shape, 37-39 
moving down, 39-45 
moving up, 45-48 
time delays and, 39 
Apple shape tables, 
disadvantages of, 4 


Apple II 
memory map, 9-11 
sound generation and, 
167-169 
ASL (Arithmetic Shift Left) 
instruction, 58-59, 307 
ASM (assemble ) command, 14 
Assemblers 
field headings in, 13-14 
how to write object/ 
machine code, 12-15 
purpose of, vii 
source code and, 13, 14 
Assembly language 
accessing assembly 
language programs 
from BASIC, 300-303 
determining length of 
programs in, 299 
editing in, 13 
memory and, 296-299 
speed of, 4 
text printing and, 295 
versatility of, 5 
zero page usage and, 
299-300 
Asterisk 
as a delimeter, 14 


Backgrounds 
color shapes with color or 
white, 276-282 
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Backgrounds (continued) 


EOR and, 266-267 
EOR and drawing color, 
276-278 
retaining colors in, 279-282 
use of AND, 272-273 
white shapes and, 266-275 
BASIC 
accessing assembly 
language programs 
from, 300-303 
arithmetic functions in, 295 
determining length of 
programs in, 299 
disadvantages of, 3-4 
entending memory in, 299 
graphics and text 
commands from, 300 
memory allocation and, 
296-299 
text printing and, 295, 302 
zero page usage and, 
299-300 
BCC (Branch on Carry Clear), 
15, 20, 307 
BCS (Branch on Carry Set), 
15, 307 
BDRAW and collision test of 
every line, 120 
BEQ (Branch if EQual), 
307-308 
BGE (Branch if Greater or 
Equal), 15, 307 
Binary number system, how it 


works, 6-7 
Bit 
color drawing and, 213, 
214, 222-224 


definition of, 8 

BIT instruction, 308 

BLINE and explosions, 128 

BLOAD command, 14 

BLT (Branch if Less Than), 15, 
20 

BMI (Branch on MInus), 308 

BNE (Branch on Not Equal), 
168, 308 

BPL (Branch on Plus), 88, 
309 

Branch if EQual (BEQ), 
307-308 

Branch if Greater or Equal 
(BGE), 15, 307 

Branch if Less Than (BLT), 15, 
20 

Branch on Carry Clear (BCC), 
15, 20, 307 


Branch on Carry Set (BCS), 
15, 307 
Branch on MInus (BMI), 308 
Branch on Not Equal (BNE), 
168, 308 
Branch on Plus (BPL), 88, 
309 
BRK (BReaK), 309 
BRUN command, 14 
Bullets, paddle control and 
shooting, 105-106 
BXDRAW and collision, 119 
Byte 
definition of, 8 
high order, 10 
low order, 10 
screen versus shape, 22 
BYTETBL table, 98-99 


CALL address, 301 
Carry bit, 170-171 
CLC (CLear Carry), 32, 309 
Clearing a hi-res screen, 18-21 
CMP (CoMPare to 
Accumulator ), 309 
shape tables and, 32-33 
Collision detection 
AND instruction and, 
116-117 
BDRAW and collision test 
of every line, 120 


BXDRAW and, 119 

color drawing and, 221-226 

decrementing scoring and, 
156-166 

delay loop and, 118 

DRAW-DRAW and, 52, 117 

DRAW-ERASE and, 118 

dummy shape tables and, 
224-225 

explosion and, 131-138 

general routine for, 117-118 

reason for collision test to 
fail, 119 

scoring and, 144-155 

shape positions and, 
119-120 

shifting of bits and, 
222-224 

test-draw-erase cycle and, 
118-119 

test for, 118, 122-127 

Color, drawing in 

ANDing and, 223-224 

animating double hi-res 
color shapes, 244-251 
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Apple II and, 213-215 
backgrounds and, 276-282 
collision detection and, 
221-226 
double hi-res and, 239-243 
dummy shape tables and, 
224-225 
high bit and, 214, 239 
horizontal movement and 
problems with, 215 
how colored shapes are 
produced, 213-214 
how four hi-res colors are 
produced, 214 
how to draw a blue plane, 
215-220 
how to draw a green plane, 
220 
how to draw an orange 
plane, 220 
how to draw a violet plane, 
220 
how to maintain even, 215 
how to produce white, 213 
how to use multiple colors, 
221 
LSR and, 222-223 
problems with certain color 
combinations, 215 
resolution and, 215 
shifting of bits when, 
222-224 
types available in double 
hi-res, 240-241 
types available in hi-res, 
213 
Command field, 13 
Comment field, 13, 14 
CoMPare to Accumulator 
(CMP), 309 
shape tables and, 32-33 
Conditional branch 
instructions, 178 
CONTROL RESET, 40 
CPX (ComPare to X register ), 
309-310 
CPY (ComPare to Y register), 
310 


DC directive, 25 

DEC (Decrement to X 
register), 310 

Decrementing scoring, 
156-166 

DEcrement the Y register 
(DEY), 310 


Defined Storage (DS) code, 
32 
DELAY instruction 
collision and, 118 
explosions and, 139 
paddle crosstalk and, 101 
sound generation and, 
168-169 
vertical animation and, 39 
DEY (DEcrement the Y 
register), 310 
DFB code, 25, 58 
Displaying a hi-res screen, 
16-18 
Dots 
definition of, 12 
how to convert a dot 
pattern to a byte, 
21-22 
DRAW-DRAW routine 
collision detection and, 52, 
117 
definition of, 48 
drawing of a plane using, 
195-210 
ERASE and, 50 
flicker and, 52 
sound effects and, 198 
speed of, 52-53 
used in moving a shape 
down, 48-52 
DRAW-ERASE routine, 48, 53, 
ol 
collision detection and, 118 
Drawing 
color shapes with color or 
white backgrounds, 
276-282 
figures (persons ), 23-24 
multiple shapes, 106-115 
shapes in double hi-res, 
229-231 
shapes in double hi-res 
color, 241-243 


shapes wider than one byte, 


33-36 
shooting bullets, 105-106 
using EOR instruction, 38 
white shapes and 
backgrounds, 266-275 
See also Animation, 
horizontal; Animation, 
vertical 
DS (defined storage) code, 32 


EOR (Exclusive-OR ) 
instruction, 310 
drawing color backgrounds 
using, 276-278 
drawing over backgrounds 
using, 266-267 
erasing a shape using, 
37-39 
EQU instruction, 15 
ERASE routine, 50 
Erasing a shape 
by drawing over a shape, 
48-53 
using EOR instruction, 
37-39 
Explosions 
BLINE and, 128 
collision and, 131-138 
decrementing scoring and, 
156-166 
delay loop and, 139 
HORIZB and, 128 
how to draw, 129-138 
initialization routine and, 
129 
scoring and, 144-155 
types of displays for, 129 
where to draw an 
explosion, 127-129 
See also Sound effects 


Field headings in assemblers, 
13-14 
Figures (persons ), how to 
draw, 23-24 
Flicker 
DRAW-DRAW and, 52 
how to reduce, 283-288 


Game, creating a 
bullet draw routine, 177 
conditional branch 
instructions, 178 
displaying of scores, 177 
drawing a man, 176 
drawing a plane, 176-177 
flowchart for, 172-178 
paddle reads and, 176 
PCOUNTER and, 176 
PINITIAL and, 176 
program for, 179-195 
using DRAW-DRAW for, 
195-210 
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GOSUB command, 40 
GR command, 300 


HCOLOR command, 4 
Hexadecimal numbering 
system, how it works, 
8-9 
HEX command, 25 
Hex numbers, how to convert 
into binary numbers, 9 
HGR command, 16, 300 
HGR2 command, 16, 300 
HI byte table, 26-27 
Hi-res, double 
animating color shapes in, 
244-251 
animating shapes in, 
231-238 
displaying color in, 239-243 
drawing shapes in, 229-231, 
241-243 
high bit and, 229 
how to select mode for, 


229 
memory needed for, 227 315 
motherboard for, 227 Fs 


resolution and, 228 
screens for, 228-229 
video monitor versus 
television for, 227 
Hi-res screen(s) 
choosing between page 1 
and page 2, 11-12 
clearing the, 18-21 
displaying the, 16-18 
divisions of, 12 
double, 228-229 
memory allocation and, 
296-299 
HOME command, 300 
HORIZB and explosions, 128 


INC (INCrement memory ), 
310 

INC LINEA instruction, 41 

INC LINE instruction, 41 

Initialization (INITE) routine, 
129 

INITIAL subroutine, 45, 72 

INX (INcrement the X 
register), 310 

INY (INcrement the Y 
register ), 310 
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JMP (JuMP to address) 
instruction, 18, 310 
Joysticks 
difference between paddles 
and, 89 
horizontal/vertical 
movement and, 
101-105 
reading of, 89-90 
See also Paddles 
JSR (Jump to SubRoutine ) 
instruction, 40, 310 


Keypress, used in restarting, 
144-155 


Labels, assigning to soft 
switches, 18 
LDA (LoaD the Accumulator ) 
instruction, 17, 310-311 
LDX (LoaD the X register), 
311 
LDY (LoaD the Y register ), 
311 
Line address tables 
how to use, 24-25 
program for, 25-29 
Line locations 
changing, 29 
curved movement and, 262 
shapes at new, 72-77 
Line numbers, 14 
LO byte table, 27-28 
Load accumulator (LDA) 
instruction, 17, 310-311 
Loading (BLOAD) a program, 
14 
Loading TEMP, 58-59 
Load the X register (LDX), 
311 
Load the Y register (LDY), 
311 
LSR (Logical Shift Right) 
instruction 
collision detection and 
color drawing and, 
222-223 
definition of, 311 
sound effects and, 171 


MAIN PROGRAM, definition 
of, 40 
Memory 
allocation in BASIC, 
296-299 


determining length of 
programs, 299 
double hi-res and, 227 
extending, 299 
Memory addresses 
in Apple II, 9-11 
changing location of, 14-15 
converting from hex to 
decimal, 10 
pages and, 10 
relocating, 15 
storage and, 10 
Monitors versus televisions 
for double hi-res, 227 
Motherboard for double hi- 
res, 227 
Movement, curved 
air resistance simulation, 
265 
calculating line positions 
for, 262 
flowchart for, 263 
program for falling bombs, 
263-265 
Movement, diagonal 
creating sharp angles, 
257-261 
flowchart for, 253 
how to keep a smooth line 
of animation, 257 
program for line by line, 
252-257 
testing for end of screen 
and, 252-253 
Movement, horizontal 
joystick control and, 
101-105 
paddle control and, 93-101, 
289-294 
See also Animation, 
horizontal 
Movement, vertical 
joystick control and, 
101-105 
paddle control and, 90-93 
See also Animation, vertical 


NEWLINE, 72 

Nibble, definition of, 8 
NOP (No OPeration), 311 
NSHAPE, 140-141 


Object code 
definition of, 12 
how to run, 14 
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OFFSET table, 100-101 | 

Opcodes and pseudo-opcodes 
15 

ORA (Inclusive OR with 
Accumulator ), 311 


> 


Paddle crosstalk, 101 
Paddles 
creating a game and reading 
of, 176 
difference between 
joysticks and, 89 
horizontal movement and, 
93-101, 289-294 
how to integrate multiple 
shapes, 106-115 
reading of, 89-90 
shooting bullets and, 
105-106 
smoothing routines, 
288-294 
testing for non-movement 
of, 283-288 
vertical movement and, 
90-93 
See also Joysticks 
Pages 
in hi-res screens, 11-12 
in memory addresses, 10 
PCOUNTER and game 
creation, 176 
PEEK command, 16 
PINITIAL and game creation, 
176 
Pixels, definition of, 12 
Plotting shapes, 24-29 
Points, drawing a series of 
clearing a hi-res screen, 
18-21 
displaying the hi-res screen, 
16-18 
drawing shapes wider than 
one byte, 33-36 
how to draw a shape, 21-24 
plotting a shape, 24-29 
using shape tables, 30-33 
POKE commands, 4, 16, 300 
PREAD instructions, 89-90 
Preshifted shapes, 54-57 
Printing text, 295, 302 


Reading of paddles, 89-90 
Relocation of programs, 14-15 
Resolution 
color drawing and, 215 
double hi-res and, 228 
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RETURN command, 40 

Reviewing (CALL-151) a 
program, 14 

ROL (ROtate Left), 311 

ROR (ROtate Right), 311 

ROT (rotation) command, 4 

RTS (ReTurn from 
Subroutine ) instruction, 
40, 311 

Running (BRUN) a program, 
13 


SBC (SuBtract with Carry ), 
311-312 
SCALE command, 4 
Scoring display 
counting by multiples and 
decrementing score, 
156-166 
counting by ones, 140-144 
how to count collision 
events, 141, 144 
how to zero the counter, 
141 
NSHAPE and, 140-141 
stopping and restarting 
with a keypress, 
144-155 
Screen bytes, 12 
Screen positions 
accessing, 12 
testing, 60-61 
Screen(s), hi-res 
choosing between page 1 
and page 2, 11-12 
clearing the, 18-21 
displaying the, 16-18 
divisions of, 12 
double, 228-229 
memory allocation and, 
296-299 
SEC (SEt Carry), 312 
Semi-colon, use of, 13 
Shape positions and collisions, 
119-120 


Shapes 
accessing sequential, 60-72 
double hi-res and 
animating, 231-238 
double hi-res and animating 
color, 244-251 
double hi-res and drawing 
of, 229-231 
how to produce colored, 
213-214 
new line positions and, 
72-77 
paddle control and 
multiple, 106-115 
seven preshifted, 54-57 
See also Backgrounds 
Shape tables 
addressing (SHPADR), 58 
CMP of, 32-33 
color drawing and dummy, 
224-225 
contents of, 4 
for horizontal animation, 
55-57 
how to construct, 32, 58 
problems with using, 4 
program for, 30-32 
purpose of, 30 
TEMP and, 57-60, 65-66 
Shooting bullets, how to draw, 
105-106 
SHPADR, 57-58 
SHPNO, 58 
Soft switches 
assigning labels to, 18 
for double hi-res, 299 
how to access, 16-17 
Sound effects 
on the Apple II, 167-169 
BNE and, 168 
DELAY and, 168-169 
DRAW-DRAW and, 198 
how to create, 169-171 
See also Explosions 
Source code, 13, 14 
STA (STore Accumulator ) 
instruction, 13, 17, 312 


Status Register, 170 

Stopping at a predetermined 
score, 144-155 

Storage of bytes, 10 

Store accumulator (STA) 
instruction, 13, 17, 312 

STX (STore the X register), 
312 

STY (STore the Y register), 
312 

SUBROUTINES, definition of, 
40 

Subtract with carry (SBC), 
311-312 


TAX (Transfer Accumulator to 
X register) instruction, 
59, 312 
TAY (Transfer Accumulator to 
Y register) instruction, 
59, 312 
Televisions and double hi-res, 
227 
TEMP and shape address 317 
tables, 57-60, 65-66 
advantage of, 57 
loading of shapes in, 57-58 
SHPADR and, 58-60 
TEXT command, 300 
Time delays 
collision and, 118 
explosions and, 139 
paddle crosstalk and, 101 
sound generation and, 
168-169 
vertical animation and, 39 
TXA (Transfer X to 
Accumulator ), 312 
TYA (Transfer Y to 
Accumulator ), 312 


XCOUNT, 32 


Zero page addressses 
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Hi-Res Grap hics and Animation 
lking bs language 


leonard | Malkin, Ph.D. a 


E tore the secrets of double hi-res and color and learn how to create startlingly 
detailed animated graphics. 


This is the book for both beginners in assembly language programming and assembly 
language literates who wish to extend their expertise to Apple II hi-res graphics and 
animation. 


Whereas most books on assembly language do not feature hi-res graphics, this book 
uses hi-res graphics and animation as a tool to demonstrate the fundamentals of 
assembly language programming. At the same time, this easy-to-read and sometimes 
humorous book will show you the secrets of producing professional hi-res animated 
graphics for games and a variety of other applications. 


In the first part of the book, following a discussion of binary and hexadecimal 
numbering systems and the use of an assembler, you will be guided through each step 
leading to the construction of a single arcade-type game written entirely in assembly 
language. Various aspects of hi-res animated graphics are covered with clear, concise 
explanations. Illustrated with detailed programs, topics include: vertical and horizontal 
movement, internal animation, paddle and joystick controls, collisions and explosions, 
scoring, sound generation, and the animation of multiple shapes. 


The second part of the book explores color graphics and double hi-res techniques and 
requirements, including double hi-res color. Other topics in Part Two include curved 
and diagonal movement, drawing over backgrounds, more sophisticated paddle and 
joystick controls, integrating BASIC with assembly language, and the use of BASIC and 
assembly language graphics for educational programs. 


Also of interest to Apple® owners... 


Pascal Programs for Data Base Management 

Tom Swan 

The best bargain in data base management to date! This package contains a complete 
relational data base system (thirty-one programs and four library units) —ready to 
run—in Apple Pascal. 


The software contains the source codes for all the programs. In the accompanying 
book, the author explains how to create, edit, merge, search, and sort data files. Two 
powerful commands that distinguish a relational data base are presented in the 
programs join and project. With the help of these two programs, it is possible to extract 
and prepare any conceivable combination of information from a data base. Also 
included is pdbsunit, a special library of powerful Pascal procedures for input, output, 
and special data base functions. 7272-4, Book/Software, 3 disks 
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